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1.0 PROGRAM OVERVIEW 



1. 1 Introduction 

The Editor is that LAP6-DIAL program that allows the user to develop, 
modify and edit a source program. The Editor also has the second- 
ary function of interpreting monitor commands and dispatching 
calls to the rest of the DIAL system. On the scope, the Editor 
displays line numbers as well as an editing cursor in the form 
of an inverted T. 

The DIAL-MS Editor is a combination of the DIAL-V2 Editor (DEC- 
12-ZW7ft-D) and the DIAL-V2 program Add Program (DEC-12-ZW8f^-D) . 
(Add Program is merely a special overlay for the Editor and is 
discussed in Section 2.0.) The DIAL-MS Editor is logically and 
functionally the same as its DIAL-V2 counterpart, with the ex- 
ception that all I/O is done through the DIAL-MS routines. All 
commands which reference any device, except the Working Area, 
have been replaced by the identical function in calls to the 
DIAL-MS routines; those that reference the Working Area (such 
as the string slides, etc.) have been left intact. However, 
they are preceded by a subroutine call to the routine GOODY 
which looks at what follows the siibroutine call and does a 
logical transformation to the equivalent DIAL-MS call. 

1.2 SYSTEM PARAMETERS 

The system parameters are those Editor symbols that are used 
in the Editor and/or other system programs that define the 
nature and configuration of the DIAL system. These parameters 
are listed and explained below. 
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APTBLK 
ASTBLK 

A6 

BB 

BLKST 



The first tape block of Add Program* 

The first tape block of the Assembler 
that is read in by the Editor. 

The first core location of the DSC grid 
table. 

The first core location of the Editor's 
buffer block input buffer. 

The core location that holds the first 
tape block of a source program for 
assembly . 



B12VAL 
CB 

DELTA 

DIALST 

DIALU 

DXTBLK 
D6 

D6VAL 

EXTMTP 
E6 

FCSA 



Pointer to the core locations in the Editor's 
pointer tape block that hold the knob to 
switches patch for a PDP-12B. 

The first core location of the Editor's con- 
tinuation block input buffer. 

The value that determines the maximum number 
of pointers that can be stored in the Editor's 
pointer tape block. 

The first tape block of the DIAL System and 
also the first tape block of the Editor. 

The tape unit that holds the resident DIAL 
System. 

The first tape block of Display Index. 

The first core location of the control table. 

The pointer to the first core location in the 
Editor's pointer tape block where the control 
table is saved. 

The value that determines the Editor's extended 
tape operations. 

Pointer to the Editor's monitor command para- 
meter table. 

The core location in Filecoms which the Editor 
references to execute calls to Filecoms. 
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FCTBLK 
FILE 

FREE 

INDEX 
KBDOPR 

LNHC 

LOTBLK 
MAXNUM 



The first tape block of Filecoms. 

The first tape block above the Working Area 
that is available for file storage. 

The first tape block of the free area and 
the first tape block below the Working Area 
that is available for file storage. 

The first tape block of the index. 

The first core location of the Editor's key- 
board input conversion routines. 

The initial horizontal coordinate for display 
of line numbers in the scope routines. 

The first tape block of the Loader. 

The maximum number of allowable characters 
on a line. 



MCHC 



MCVC 



MKHC 



PTADDR 



PTBLK 



PTEXIT 



PTINIT 



PT12B 



The initial horizontal coordinate for dis- 
play of a monitor command in the scope routines. 

The vertical coordinate for display of a 
monitor command. 

The horizontal coordinate, for display of 
the marker. 

The pointer to the core locations in the Editor's 
pointer tape block that hold the addresses of 
all the Editor's pointers. 

The first tape block of the Editor's pointer 
tape block. 

The pointer to the core locations in the 
Editor's pointer tape block that hold the 
values of the Editor^ pointer upon 
system exit. 

The pointer to the core locations in the Editor's 
pointer tape block that hold the initialization 
values for the Editor's pointers. 

The pointer to the core locations in the 
Editor where the patch for a PDP-12B will 
go. 



PXTBLK 



The first tape block of Print Index. 
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SBTBLK - The first tape block of Save Binary. 

SPCHAR - The first core location of the Editor's 
special character table. 

SPFCNS - The value that determines the Editor's 
special functions whenever an ESF is 
executed. 

TXTHC - The initial horizontal coordinate for dis- 
play of text in the scope subroutines, 

UNITNO - The core location relative to which argu- 
ments are stored for the assembler. 

WA - First tape block of Working Area. 

WAEND - Last tape block of the Working Area. 

WAUNIT - The tape unit that contains the Working Area. 

WB - First core location of the Editor's Working 

block input buffer. 

Y6 - The last core location of the monitor com- 

mand table. 

Z6 - The first core location of the monitor com- 

mand table. 

1 . 3 SYMBOLIC CHARACTER CODES 

A number of DIAL characters are symbolically defined in the 
Editor. Any change in the DIAL character code itself or in 
the structure of tables which use the symbolic codes would 
require a redefinition of the following symbols. 
SYMBOL VALUE DIAL CHAR DIAL CODE 



AM 


36 


Alt Mode 


4036 


AMI 


3600 


Alt Mode 


4036 


BF 


21 


Q 


21 


BL 


27 


W 


27 


COMA 


54 


/ 


54 


COMAl 


5400 


/ 


54 


CR 


43 


Carriage Return 


43 


CRl 


4300 


Carriage Return 


43 


EOF 


0000 


End of File 


00 


EOFl 


0000 


End of File 


00 
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SYMBOL VALUE DIAL CHAR DIAL CODE 



FP 


6100 


1 


61 


FL 


6200 


2 


62 


KOM 


57 


/ 


57 


KOMI 


5700 


/ 


57 


LF 


37 


Line -Feed 


37 


LF 1 


3700 


Line -Feed 


37 


PCODE 


2000 


P 


20 




1400 


L 


14 


KC 


04 


D 


04 


"D T 

KJLi 


1400 


L 


14 


RO 


37 


Rubout 


4037 


ROl 


3700 


Rubout 


4037 


RR 


22 


R 


22 


SP 


40 


Space 


40 


SPl 


4000 


Space 


40 


TB 


47 


Tab 


47 


TBI 


4700 


Tab 


47 



1.4 THE EDITOR'S TABLES 

The Editor utilizes seven different tables which are ex- 
plained below: 
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1. 4 1 Control Table 



The control table is located in LDF 1 and covers 
locations D6-2 (2235) through E6-1 (2370) inclusive, 
the function of the table is to facilitate those 
routines that execute locate requests. The first 
two locations ot the table (D6-~l, D6~2) must always 
have zeroes in them. The rest of the control table 
is used for storing line numbers. The table sets 
up a one-to-one correspondence between line numbers 
and tape blocks used in the Working Area. The 
first core location of the control table (D6) con- 
tains the line number of the last line of input 
in the first tape block of the Working Area. The 
second location in the table contains the line 
number of the last line of input on the second tape 
block of the Working Area, Etc. For example, if 
lines 1-54 filled up the first tape block of the 
Working Area, then location D6 (2235) would con- 
tain 54. The locate routines use the information 
in the control table for locating line numbers 
and finding appropriate tape blocks. 



1.4.2 Grid Table 



The grid table is located in LDF 1 at locations 
A6 (2001) through locations Z6-1 (2200) inclusive 
and is used for character display (DSC) . Every 
dxsplayable DIAL character is in the grid table. 
Each DIAL character is allotted two contiguous 
locations in the table which is exactly the number 
needed to display a character. For each character 
the two core locations contain the bit configuration 
required to "reproduce" it on the scope. The order 
in which the characters appear in the table is im- 
portant because the scope routines access these 
grid configurations by an algorithm that relates 
the DIAL character codes to locations in the table. 
The marker appears in the first two locations, al- 
though this is not a rigid requirement. The grid 

configurations for A, B, C, ? come next 

by core location pairs and in ascending DIAL code 
order. Note that the DIAL codes for these charac- 
ters are 1, 2, 3, , 75, 76, 77 respectively. 

If the DIAL code for any character is changed then 
that character must be repositioned in the grid 
table. 



6 



1.4.3 Keyboard Input Conversion Table 



The keyboard input conversion table runs from loca- 
tions TABLE (7517) through CHAR (7534) inclusive. 
It holds the codes for all the special and illegal 
DIAL characters. The keyboard input conversion 
routine scans this table every time it processes a 
character from the keyboard. Every incoming charac- 
ter is stored in the next to last and last locations 
of the table (the tags ENDTAB and CHAR) . If a given 
character is in the table at location P, the follow- 
ing format applies. The high order four bits of 
location P contain a micro address that is used to 
generate a jump instruction to a routine that is 
appropriate to that character. The low order eight 
bits of location P contain the ASCII for the given 
character. The low order six bits of location P+1 
contain the DIAL code for the given character. Ex- 
cept for those characters that are special, the low 
order six bits of any ASCII character is the DIAL 
code for that character, A match between the incom- 
ing character and the keyboard table will always 
occur because the incoming character is always stored 
at the end of the table. Thus, if a special charac- 
ter is not selected, a "normal" one is selected by 
default. The special characters in the table are 
tab, apostrophe, line feed, left arrow, carriage 
return, number sign, ASR33 ALT MODE, KSR 35 ALT 
MODE, RUBOUT, LEFT ARROW, ESCAPE ALT MODE, and at 
sign/ in that order. Consider the first two locations 
of the table: 



TABLE, ljg00 + 211 /TAB 

0400 + 2 47 /APOSTROPHE 

The high order four bits is the micro address for a 
tab, the low order 8 bits is the ASCII for tab and 
the low order six bits of the next word is the DIAL 
code for tab (47) . 
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1.4.4 Monitor Coinmand Table 

The monitor command table is located at locations Z6 
(2201) through Y6 (2234) inclusive. The monitor com- 
mand table has the following format: 

X1X2 

JMP DOX1X2 

X3X^ 

JMP DOXaXif 



^m^m+ 1 

JMP DOX^X^^i 



^i^i+i DIAL code for a given command and 

JMP DOX^X^^^ Is a call to.a subroutine that will 
handle the command X.X. • In particular, 

XjX2= 0120, A=01y and P=20,^ ^"^^ the DIAL codes for 
A and P. The routines that decode a monitor command 
load the user requested command pair and the Corres- 
ponding DIAL code, say Y2 , into the AC. The table is 
then scanned for equality with the AC. If a match is 
found at location P of the table, then the jump in- 
struction at location P+1 of the table is executed. 



1.4,5 Special Character Table 



The special character table contains the DIAL codes 
for all those characters that can indicate a special 
command to the Editor, Those characters are tab, 
linefeed, ALT MODE, carriage return, comment, comma, 
rubout, 1, 2, Q, W, R, L, D. The special character 
table is utilized by the DIAL code interpretive 
routines which are called prior to a character being 
input to the Editor's buffers. The special character 
table is compared by half words to every incoming 
character. For a given situation, only the approp- 
riate portion of the special characteur table is 
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compared to the incoming character. If an incoming 
character matches one in the special character tcible, 
then the routine that will implement the request of 
the special character is called • The special chcorac- 
ter table is always checked for rubout, but the 
characters 1, 2, Q, W, which are also in the table, 
are only checked for if the previously typed key was 
an ALT MODE and input was to a fresh line. 



1.4«6 Monitor Command Parameter Table 



The monitor command parameter table runs from loca- 
tion E6 (2371) to location E6-1-6 (2377) inclusive. 
Whenever a monitor command is issued^ the arguments 
accompanying the command, if any, are stored in the 
parameter table* Argxments for a command are any 
legal combination of the following: line numbers, 
file name, tape block number, and tape unit number. 
The monitor command parameter table has the follow- 
ing structure: 



LOCATION CONTENTS 

E6 first line number or tape block number 

E6+1 second line number 

E6+2 - E6+5 file name 

E6+6 tape vinit nvmiber 



The MC parameter table also holds at locations E6 and 
E6+1 the load and go arguments during a Save Binary 
command (see DEC-12-2W5A-D) . 



1.4.7 Tab Table 



The tab table runs from locations FLDTAB(6774) to 
ENDTB(7000) inclusive. The table is used by the scope 
routines to display tabs as a complement of eight 
scope spaces; it is merely a table of horizontal 
coordinates with each succeeding entry eight scope 
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spaces larger than the previous one. Whenever a tab 
is encountered during display, beta 1 holds the 
horizontal coordinates of the last displayed charac- 
ter. At this point the table is scanned to find 
the smallest entry in the table that is larger than 
the current horizontal coordinate; beta 1 is then 
reset to that value. The table is defined relative 
to the symbolic tags TABSET (the length of a tab) 
and TXTHC (the initial horizontal coordinate of the 
first character on a line) . A scope line can be 
thought of as divided into three fields: the tag 
field, the instruction field, and the comment field. 
The tag field is the first eight scope spaces, the 
instruction field is the next sixteen and the comment 
field is the last sixteen (a scope line is forty scope 
spaces or characters long) . The first entry in the 
tab table is the horizontal coordinate for the start 
of the instruction field; the next entry is the coordinate 
for the middle of the instruction field; the third 
entry is the coordinate for the start of the comment 
field; the fourth entry is the coordinate for the 
middle of the comment field; and the last entry is 
zero. The last entry is used as a terminator to 
indicate that a tab extends beyond a scope line and 
routines must be called to modify the vertical as 
well as the horizontal coordinate. 



1. 5 MONITOR COMMAND DECODE ROUTINES 



Whenever the carriage return key is typed, the Editor sets 
a pointer, beta 7, to the first character of the current line, 
then checks that character for a line feed code (37) . If the char- 
acter is a line feed, the current line is a monitor command re- 
quest and the Editor calls routines to decode it- The first 
routine it calls dispositions the type of monitor command (AS, 
AP, etc.). The routine looks at the second character of the 
command; if it is a number code for 0-7 the locate request 
routines are called. If the second character is not an octal 
numeric code and if the command has a legitimate format, the 
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second and third characters correspond to a word in the 
monitor command table (see Monitor Command Table) . 

If a monitor command is not a locate, the second and third 
characters of the current line are loaded into the Accumu- 
lator. A pointer is set to the start of the monitor com- 
mand table and a counter is set to its length. The table 
is scanned one word at a time and checked for equality 
with the AC. As a matter of table structure, the jump 
instructions are compared to the AC, but they are of the 
form 6XXX or 7XXX and would never match a legitimate monitor 
command which is of the form IXXX, 2XXX,or 3XXX. If the 
table is scanned before a match is found, the command is 
illegal; it is deleted and control is returned to the 
display routines. If a match is found,, the word subsequent 
to the one in the table that matched is loaded into the AC, 
then stored at p+1; i.e., the corresponding jump instruc- 
tion is planted. 

All monitor commands, except EX, CL, PI, 2E and locate, 
require decoding of the command string - characters 3, 4, 
5, — up to carriage return of the monitor command - and 
setting up of the monitor parameter table prior to execution. 
The monitor parameter table is seven words long starting at 
PDP-8 location 2371 (E6+20)2f0) . The first two words are for 
line numbers; the next four are used for the name; and the 
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last one is used for the unit number. The command string 
decode routines initially set the words for line and unit 
numbers to zero, and the words for name to 7777 • A check 
is first made for numeric codes; if they exist, they are 
converted to a number and stored as the first line number 
in the monitor command parameter table. If numeric codes 
in the command string are not followed by a comma, the 
corresponding line number word in the monitor command para- 
meter table is reset to 0} otherwise the command string is 
checked and decoded for the second line number* After a 
second comma is encountered or a no comma condition as 
described above, pointers are set for the name sector of 
the command string and monitor command parameter table. 
Characters are transferred from the command string to the 
name sector of the parameter table. If, before a comma 
is encountered, a carriage return code is detected or the 
number of characters transferred exceeds eight, the command 
string is improperly formatted. The command is then deleted 
from the WMBLK and control is returned to the display routines. 
When a comma is encountered, the pointer to the monitor com- 
mand parameter table is set to the unit number word. The 
unit number is decoded from the command string and put in 
the parameter table. A check is then made to see if the 
unit number is in the range 0-7. If it is, the decoding 
routine returns to P+2; otherwise, the command is deleted 
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from the WMBLK and control is returned to the display 
routines • 

The routine to convert codes to numbers accesses 
the command string via the pointer beta 6. It converts 
codes in the command string sequentially. Each code 
is converted to a 3-bit octal digit and packed in one 
word (T4) . The routine exits when the first non -octal 
numeric code in the command string is encountered. 
Arguments of more than four octal digits will be improperly 
converted, but no error condition will be detected. 

1-6 EDITOR POINTER TAPE BLOCK 

Whenever the Editor is fired up from a DIAL tape, 
initialized by the command line feed CL, or is exited 
from by a monitor command, the Editor's pointers are read 
from or written onto the Editor's pointer tape block (320). 
When the pointer tape block is in core, it resides in 
memory block five of LINC data field 1 (2400-2777); it 
is divided into six sectors: pointer addresses (PTADDR) , 
pointer initialization values (PTINIT) , pointer exit 
values (PTEXIT) , pointer PDP-12-B addresses (PT12B) , 
PDP-12-B values (B12VAL) ; and control table values (D6VAL) . 
The PTADDR sector holds the addresses of all the Editor's 
pointers; they are sprinkled throughout segment two. The 
PTINIT sector holds the values that the Editor's pointers 
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are to be set to upon initialization. The PTEXIT sector 
holds the values of the Editor's pointers at the time of 
the last exit of the Editor. The PT12B sector holds the 
addresses of the Editor's knob subroutines. The B12VAL 
sector holds the patch to the knob subroutines to make 
them run off the right and left switches for DIAL users 
with a PDP-12-B, The D6VAL sector holds the control 
table values upon exit from the Editor. The primary 
purpose of the pointer tape block is to preserve the 
Editor's pointers upon exit without generating a core 
image of the Editor on the DIAL Tape. 

1.7 INPUT BUFFERS 

The Editor's input buffers take up memory blocks 
5, 6, and 7 of LDF 1 and are named respectively as the 
buffer memory block, working memory block, and continu- 
ation memory block. All editing and display is done 
with respect to these buffers. Whenever a given section 
of the Working Area is requested, by a locate for instance, 
the Editor determines where in the Working Area the 
requested source is located and reads the pertinent blocks 
into the input buffers and displays them on the scope. 
The last scope character is defined as the last logical 
character in the working memory block (unless the working 
memory block is empty, in which case the last scope 
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character is in the last half-word of the buffer MBLK) . 
Between the last logical character of the working MBLK 
(depending upon the state of the art, the last logical 
character can be anywhere in the working MBLK) and the 
first logical character of the continuation MBLK, there 
is a gap or void (LAP-6 calls it a playground) to facili- 
tate editing. The first logical character of the con- 
tinuation MBLK is the first character that would be 
displayed on the scope if an ALT MODE 1 were requested. 



Buffer MBLK 



Working MBLK 



Continuation MBLK 



WA 

Line 

Tape 

BWD 

TBLKs 




WA 

Line 

Tape 

FWD 

TBLKs 



Last 

Scope Void 
Character 
(LN 100) 



First Character 
LN ijari 



Figure ^ 
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The input buffers can be thought of as an extension 
in core of the Working Area. The source should be considered 
as continuous from the start of the Working Area (TBLK37j2f) 
up to the last logical character of the working MBLK and from 
the first logical character of the continuation block to 
the end of the source. The working MBLK and buffer MBLK are 
used for scope display and editing. The continuation MBLK 
is used for locate and ALT MODE requests only. If the 

numbers of characters in the scope display exceed the number 
of characters in the working MBLK, the display is continued 
back into the buffer MBLK . The scope display routines 
determine the characters to be displayed by starting from 
the last logical character in the working MBLK and counting 
back a predetermined number of characters. Since editing 
or input can be performed relative to any scope character, it 
follows that all editing is reflected by changes in the buffer 
MBLK or working MBLK. Addition of characters compresses the void 
between the working MBLK and continuation MBLK by increasing the 
number of characters in the buffer MBLK working MBLK area. Dele- 
tion of characters similarly expands the void area. Whenever 
the working MBLK becomes full, it is written out on tape 
along with the buffer MBLK and pointers are reset for a 
fresh working MBLK. The continuation MBLK is not affected. 
Whenever the working MBLK becomes empty, the buffer MBLK is 
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(core) transferred into the working MBLK and a backward 
TBLK (Fig. a) is read into the buffer MBLK. 

The void or playground allows modification of a source 
without constant packing. Whenever a source id modified, 
the input buffers are no longer an image of their corres- 
ponding TBLKs in the Working Area and the tape is said to 
be in a not o.k. status. The only way to make the tape o.k. 
is to pack the Working Area. The Working Area as a matter 
of general usage is not packed but is updated by writing 
out the input buffers at appropriate times. When the tape 
is not o.k. the input buffers always contain information 
that must go out on tape sooner or later. As long as there 
is a void in the input buffers, the Working Area need only 
be updated TBLK by TBLK as editing proceeds. Once the' source 
is expanded by 512 characters the playground is full and 
there is no more room in the input buffers for editing; the 
source must be packed. 

The continuation MBLK is used during locate requests 
primarily to minimize tape transfer. When a locate forward 

is requested, a transfer is made character by character and 
line by line from the continuation MBLK to the working MBLK 
until the proper line is located. If the continuation block 
is emptied during the transfer, the next forward tape block 
of the Working Area is read into the continuation MBLK and 
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the transfer continues- For locating backwards, the same 
logic is employed but in this case the transfer is from 
the working MBLK to the continuation MBLK. Locate requests 
require tape transfers only when the continuation or work- 
ing MBLKs become full or empty. 

Subroutine GOODY is called whenever the Editor wants 
to read or write anything from the Working Area and is always 
called from segment 2. The general call is: 



LIF 3 GOODY resides in segment 3* 

DJR DJR is enabled to save zero- 

LDA I The AC contains a JMP to the 

JMP .+2 tape instruction to be executed, 

JMP GOODY Call GOODY. 

RDC The desired tape operation (read 

xxxx or write) and the block number^ 

YYYY GOODY will return here with all 

7*s in the AC, 



GOODY looks at the block number and determines where the 
operation is to occur (the range is 20j2fJ2f-5777) . Next, it decodes 
the block number into a DIAL-MS block number and calls DIAL-MS 
to perform the operation. GOODY then returns to the caller. 



1.8 THE EDITOR'S POINTERS 



The following is a description of the Editor's key 
pointers. Beta registers 2-6 of segment 2 are crucial and must 
be left entirely to the Editor. 



A. BETA 2 - holds the half word address in the 
input buffers of the last scope character. 
If the last two characters in the scope dis- 
play were AB, for instance, and B2 held the 
value 7010 then the contents of location 
3010 would be 0102 (DIAL Code for AB) . The 
only time that B2 does not point to a HALF 
word address in the working MBLK is when that 
MBLK is empty; then it holds the address of 
the last half word of the buffer MBLK (6777). 
Beta 2 is used in all editing and LINCtape 
routines that affect the working MBLK and there 
are not too many that do not affect this MBLK. 
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B. BETA 3 - points to the half word address of 
the first character on the current line. The 
first character on the current line may be 
anywhere in the buffer or working MBLK. Beta 
3 is used after a carriage return to determine 
if a monitor command has been requested and to 
set pointers to the monitor coramai.d if it was 
requested. Beta 3 is also used to determine 
whether editing is occurring above or below 
the current line. All input and a number of 
LINCtape routines address this beta register. 



C. BETA 4 - points to the first logical character 
in the continuation memory block. It is uti- 
lized during the execution of ALT MODE and 
locate requests and for storing end of file 
during an exit. 

D. BETA 5 - points to the control table. Any 
access to the control table during locate 
requests, for instance, go through beta 5. 

E. BETA 6 - during input beta 6 is used as a counter 
for the number of characters on the current line. 
A carriage return at the end of the current line 
would, for example, cause beta 6 to be set to the 
value MAXNUM (the maximum number of characters 
allowable on a line). When beta 6 goes to 7777, 

a carriage return is automatically inserted on 
the current line. During execution of a monitor 
command, beta 6 of segment 3 is used as a pointer 
to the command. 

{ 

The following symbols in segments two and three define core 
locations that are also crucial to the Editor. 



BBTBLK - the core location in segment 2 that holds the 
TBLK in the Working Area that corresponds to 
the buffer MBLK. The contents of this location 
always has the form 5\XXX. 

CBTBLK - the core location in segment 2 that holds the 
TBLK in the Working Area that corresponds to 
the continuation MBLK. Its contents are of 
the form 7 \ XXX. 

CURLN - the core location in segment 2 whose contents 
hold the current line nuit±>er. 

CURPTR - the core location in segment 3 that points to 
the cursor character in the display routines. 
Each character that is displayed has its ad- 
dress compared with CURPTR. When a match oc- 
curs, the cursor is displayed. 

CURPT2 - the core location in segment 2 that points to 
the cursor character for the edit routines (it 
differs from CURPTR by one-half word) . Beta 2 
and CURPT2 are the Editor's most active pointers. 
All editing, input, and most LINCtape routines 
reference this pointer. 
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FIRSWD - the core location in segment 3 that points to 
the first character in the scope display and 
is used by the scope display. 

MAXBLK - the core location in segment 2 that holds the 
largest tape block used in the Working Area. 

MAXLN - the core location in segment 2 that holds the 

largest line of the source in the Working Area. 

TBLKCB - a core location in segment 2 which is conceptu- 
ally identical to CBTBLK above. CBTBLK is used 
during read instructions and TBLKCB is used 
during write instructions. 

TOPPTR - located in segment 2, TOPPTR is identical to 
FIRSWD but is used by the editing routines as 
a boundary value . 

WBTBLK - the core location in segment 2 that holds the 

tape block in the Working Area that corresponds 
to the working MBLK. 
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2.0 ADD PROGRAM 

Add Program is used to add a program to the Working Area 
starting at the current line number. A program may be 
retrieved from the file area by name from any unit or 
by block number from any unit and added to the Working 
Area. Line nvimber arguments may be specified provided 
that the Add Program is by name; note that Add Program 
assumes the line number arguments are in ascending order. 

The manner in which a program is added to the Editor is 
very similar to the manner in which the Editor accepts 
input from the keyboard. The only real difference is that 
the DIAL code interpretive subroutines are not utilized 
during Add Program because no special characters are 
being input. 

When Add Program is called, it determines the first tape 
block of the source. All necessary information for the 
request is stored in the monitor command parameter table 
at locations E6 (2371) through E6 + 6. Add Program first 
looks at the name sector of the parameter table (E6 + 2 
-E6 +5). If the left half of E6 + 2 is 77/then the request 
is by block number. No file name should begin with question 
mark (DIAL code for ? = 77) because Add Program will never 
be able to retrieve it by name. 

If a name has been requested. Add Program gsts the unit 
number at E6 -f 6 and thenchecks to see if that unit con- 
tains an index. A unit is said to have an index if the 
first ten words of the first tape block of the index area 
(TBLK 346) contain 5757 {//) If no index is found, Add 

"*"For a full description of index structure, see FILE COM- 
MANDS, DEC-12-ZW9A-D. 
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Program displays "NO". If the requested unit has an index, 
each name in the index is compared with the requested name 
until a match is found. A no name match condition will 
cause Add Program to display "NO". If a match is found, 
Add Program further checks to see if the name corresponds 
to binary only and, if so, again displays "NO". If the 
name match has a source, then the starting tape block is 
retrieved from the index and stored at location TPWD (-5553) . 

Add Program then checks the parameter table for line num- 
ber arguments. If location E6 = location E6 + 1, Add 
Program assumes that the entire source has been requested and 
sets the line number arguments LNl and LN2 to 1 and 7776 
respectively. If E6 is not equal to E6 + 1, then LNl is 
set equal to E6 and LN2 to E6 + 1. If .the Add Program 
request is by tape block number, the requested block is at 
location E6 where it is retrieved by Add Program and stored 
at location TPWD. Once LNl and LN2 have been set, the add 
program part of Add Program begins. 

Add Program has its own input buffer, to wit, MBLK 2 of 
segment 2. During an Add Program, all LINCtape read 
instruction from the requested unit is executed by Add 
Program and placed in its input buffer (to include the 
index) ; however, the Editor does all the LINCtape instruc- 
tions affecting the 'forking Area. 

The Add Program transfer is executed in the following man- 
ner. Add Program gets the first TBLK from the requested 
source, and ignores the * 20 ^ which is at the start 
of every source. If IiNl is not equal to 1, Add Program 
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calls the routine BYPASS which scans the requested source 
always checking for end of file tape block by tape block 
until LNl is equal to the current line of the requested 
source. When this occurs, control is turned over to the 
subroutine F8 which transfers characters one at a time 
from Add Program's input buffer to the Editor's input 
buffers. When the Add Program input buffer becomes empty. 
Add Program gets the next TBLK. After each character is 
transferred, control is turned over to the Editor, at whic 
time the Editor checks its input buffers to see if they 
are full. When the Editor's input buffers become full, 
the Editor writes out on the Working Area, modifying its 
various arguments and pointers, and returns control to Add 
Program when it is finished. 



Before Add Program passes a character to the Editor, it 
checks for end of file, exiting and returning control to 
the Editor upon finding it. After Add Program passes a 
character to the Editor it checks for carriage return. 
If the character was not a carriage return, the input 
buffers are checked and transfer of the next character is 
initiated. If the character was a carriage return, Add 
Program increments by one the Editor's arguments MAXLN 
(the last line of the source), CURLN (the current line 
of the source) , and its own argument LNl, LNl is then 
compared for equality with LN2; if the condition is met, 
the transfer is terminated. It should be noted that if 
LNl is greater than LN2, Add Program will add from LNl 
to the end of file since equality with LN2 will never 
occur . 
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2.1 ENVIRONMENT 

Add Program resides in tape block 321 and in locations 
5400-5777 when in core. Add Program is really an 
Editor subroutine because it requires that the Editor's 
LINCtape and input subroutines be resident with it and 
must be in MBLKs zero and one of segment two. 

3.0 FLOW DIAGRAM (Attached) 

4.0 PROGRAM LISTING (Attached) 



24 



EDITOR MEMORY MAP 



GOODY 
KNOB S.R. 
SCOPE S.R. 

MONITOR COMMAND S. R. 
KBD INPUT CONVERSION S. R. 
KBD INPUT CONVERSION TABLE 
TAB TABLE 

(21 FREE LOCATIONS) 




INITIALIZATION S.R. 
INPUT BUFFER S. R. 
AUTO FORMAT S. R. 

DELETES, ALT MODES. AND LOCATE S.R. 

LINC TAPE S. R. 

SCOPE INITIALIZATION S. R. 

(44 FREE LOCATIONS) 




CONTINUATION MBLK ^ 

WORKING MBLK 
BUFFER MBLK ^ 


> INPUT BUFFERS 




MONITOR COMMAND PARAMETER TABLE 
CONTROL TABLE 
MONITOR c6mMAND TABLE 
GRID TABLE 

(1 FREE LOCATION) 




SPECIAL CHARACTER TABLE 
AUTO FORMAT S. R. 
DIAL CODE INTERPRETIVE S. R. 
INITIALIZATION AND EXIT S.R. 

(516 FREE LOCATIONS) 



7777 



6000 



4000 



2400 



2000 
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c 



EDITOR COLD START 



RDC IN DIAL -MS 
I/O ROUHNES 



READ IN REST OF 
EDITOR 



RESTORE PTRS 



C 



DISPLA 



C 



DISPLA 







SET UP CALL TO 
INTERPRET S.R. 






( 




INITIALIZE SCOPE 
ARGUMENTS 









c 



NORMAL SCOPE 



0 



C 



NORMAL SCOPE 



DO INITIAL CALL 
TO SCOPE 




SET ARGUMENTS 



NO 



READ KNOB 3 
SET CURSOR 



©NO^X^ HAS KNOB^Sy^ yeS 
* ^"V^ 7MO^V£D *VV 
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c 



RECALL TO 
SCOPE 







DISPLAY 
A LN NUM 







YES 







DSC CURSOR 1 




YES 







1 DISPLAY MARKER | 





YES 







1 DSC CURSOR 



SET UP FOR 
NEXT LINE 
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INTERPRETIVE SUBROUTINE 




28 



Q SUB CHAR } 







|rETRIEVE 1 CHAR 




YES 



ACR 



com 


-ENT 1 






FOR 

com 


MAT 
^ENT 



1 CO* 


AMA 






FORMAT 
COMMA 







RUB OUT 




Q ALT REQ 3 



Q OlSPLA ) 







RETRIEVE 1 CHAR 








DO ALT 
MODE REQUEST 







Q 01 S PL A ) 



C 



c 







RETRIEVE 1 CHAR 








DO EDIT 
REQUEST 







c 



DISPLA 
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Q REG CHAR ^ 



Q DISPLA 




INSERT CHAR 
OVER CURSOR 






CHECK INPUT 
BUFFERS AND 
LING TAPE STATUS 






ADJUST POINTERS| 








INSERT CR 
OVER CURSOR 



CHECK INPUT 
BUFFERS AND 
LINC TAPE STATUS 




^ DISPLA ^ 



YES 



RESET POINTERS 




NO MONITORS — YES 



CHK MC 3 



DISPLA 
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C KBDOPR ^ 



SAVE RTN JMP 



] 



READ 1 CHAR 



GET CHAR 
MATCH DIAL CODE 
AND JMP INST 
FROM TABLE 



CjdL-J gJs^D CiIlD C"^~^ ( "uiouT ) rr^r^iiT) c aJi (ztt^^ 



I ECHO C HAR ~| 



I CHAR — AC I 
C LN FEED ^ 







1 37-AC 1 



( 


ILLEGAL 






1 0-*AC 1 



® 



c 



3 C RUBOUT 3 



jscHo crlnfeedI 



I 43-^AC I 



Q ALT 1 


) 


( ALT ESCAPE ^ 








1 4036 


— AC 


1 


1 4036 


-AC 1 







1 ECHO / 1 






[ 4037 — AC 1 







1 ECHO SPACE 1 






1 47-AC 1 



© 
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CHKMC 







1 CLEAR XOB 
1 AND SPEC FGNS 




^ois^ — 



DELETE ILLEGAL 
COMMAND FROM 
WMBLK 



YES 



JMP TO 
COMMAND 
XX 



PLANT MP FROM 
MONITOR COMMAND 
IN NEXT LOC 



YES 



PUT SECOND CHAR 




INAC0.5 




PUT THIRD CHAR 




INAC6-11 








SET PTR TO START 




OF MONITOR 




COMMAND TABLE 




SET CTR TO 




LENGTH OF TABLE 








► ^X^ABLE^s. 


SCANNED _> 


? 




NO 


^X^OES AC^\. 


COMMAND IN 


s^MONITOR TABLE 


? 




NO 


SET PTR TO 




NEXT WORD IN 




MONITOR COMMAND 




TABLE 
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MODIFY ROACHR 
S.R FOR EXTEND- 
ED RUB SEQUENCE 



ROACHR ^ 




FIX UP ROACHR $.r| 



ROACHR 3 



DISPLA ^ 



(RUBOUT LEfA 
OF CURSOR j 



MODIFY ROACHR 
SR. FOR EXTEND- 
ED RUB SEQUENCE 






YES 


|fIX up ROACHR SJ^ 







DISPLA 3 



ROACHR ) 







1 SAV RTN JMP 1 




( 





0 




1 SET POINTERS 








RUBOUT CHAR 
OVER CURSOR 






1 SET POINTERS | 



YES ^ S^CK 
^^r\^ TO BACK 
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AC =0 



DECODE COMMANI 
STRING 



5 







0 ► LNNUM, 

LN NUM. UNIT NUM 

777 7 ►NAME 

IN MONITOR 
PARAMETER TABLE 







|rtn jmp—»betai| 









SET PTRS TO START 
OF CONWilAf© STRING 

AND META 
PARAMETER TABLE 










V 




AC • NUMBER 



AC ► MONITOR 

IPARAMETER TABLE 





SET PT 
NAME S 
OF MO 
PARAMETE 


R TO 
€CTOR 
NITOR 
:R TABLE 






SET CTR TO MAX 
NAME LENGTH +1 
RTNP+2— ►BETA! 








LOAD A CHAR 
FROM COMMAND 
STRING 
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YES 




DELETE 
COMMAN 
WMf 


ILLEGAL 
D FROM 
3LK 






OlSPLA ^ 



CONVERT COOES^ 



TO NUMBERS 



AC — ^ UNIT 
NUM IN 
RARAMETER TABLE 




UNIT NO 
NUMBER LEGALJ 
? 



AC ► MONITOR 

PARAMETER 
TABLE 



LOAD A CHAR 
FROM COMMAND 
STRING 




YES 



CONVERT COOES 
TO NUMBERS 



CLR 



STORE ANSWER 



LOAD NEXT CHAR 
FROM COMMAND 
STRING 



CONVERT CODE 
TO NUMBER 




ADO ANSWER 







1 ANSWER 


— ^AC 1 






1 ROR 3 1 







RTN 

p+ i 
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SET THE DATA FIELD 
TO SEGMENT TWO 



SAVE THE RETURN JMP 
WHICH IS IN THE AC 



READ 



GCLOC=CALL TO 
READ ROUTINE 



GET TViE DESIRED 
TAPE OPERATION 




WRITE 



GCLOC<ALL TO 
WRITE ROUTINE 



CREATE CO 
ADDRESS 0 
0-2 OF BLO 
NUMBER 


RRECT CORE 
UT OF BITS 
CK 






1 SAVE IN GCORE 1 


i 


INCREMENT RETURN 
JMP TO POINT AFTER 
BLOCK NUMBER 






ADD IN f 
FACTOR 
BLOCK N 
DOWN n 
DESIRED f 


*UDGE 
TO BRING 
UMBER 
vlTO THE 
^ANGE 



RESET FUDGE FACTOR 
TO -WA+1 (WORKING 
AREA) 



c 



GCLOC 



1 




CALL DIAL-MS 
ROUTINES TO PER- 
FORM OPERATION 






1 SET AC TO 7777 | 






SET D.F. TO 1 
SET D.F. TO 2 







c 



5 
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0 



GET UNIT NUM 
AT E6+6 



EXTENDED UNITS-* 




NO 



c 



ADD PROG 



1 



SET F 
INHBtT 


LAG 10 
BBWRC 






RECALL EDITOR TO 
DELETE APXXX 
FROM BUFFER 




7BLK NUM FROM 
E6— TPWO 




C 



NOLN 



3 



DOES 
UNIT HAVE 
AN INDEX ^ 
? 




37 




38 



1 — 


LN1 


7776 


— ►LNe 



c 



CHKORG 



> 



GET FIRST 
TAPE BLOCK 




LOAD 1 CHAR FROM 
AP INPUT BUFFER 




STORE IN EDITOR'S 
INPUT BUFFER 
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1 ►LNCTR 








LOAD 1 CHAR 
FROM AP INPUT 
BUFFER 




YES 

|C(LNCTR)»1— C(LNCTR)| 




C 



J8 







CALL EDITOR 
TO UPDATE PTRS 







c 



K8 



40 



YES 



CALL EDITOR 
TO DELETE 
LAST LN 



C 



GS 



1 




C<CUPLN)+l-KMClff»LN) 
C(MAXLNH1-»C(MAXLN) 
C<LN1)+1 ►C(LNI) 






|SET 83> 


B2 1 




c 



A8F 



CALL EDITOR TO 
CHECK EDITOR 
INPUT BUFFER 




NO 



NO 



YES 



WA 

FULL 
? 



< 



41 



YES 



SET UP EXTEND- 
ED UNITS 



NEXT TBLK TO 
AP BUFFER 



RESET AP BUFFER 
PTR.BUMP TPWD 
BY ONE 
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ADO PROGRAM MEMORY MAP 



EDITOR 



ADD PROGRAM 
(46 FREE LOCATIONS) 



ADD PROGRAM 
INPUT BUFFER 



EDITOR SUBROUTINES 
NEEDED FOR AP 



EDITOR INPUT BUFFERS 
NEEDED FOR AP 



MC PARAMETER TABLE 
CONTROL TABLE 
NEEDED FOR AP 



NOT USED 
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0000 «20 

0001 /DIAL-MS EDITOR 

0002 /EDITOR 

0003 /UPDATE 

0004 /15 DEC 69 

0005 /UPDATED TO CHAINING 5/14/70 
00 06 / 

00 07 / 

0010 / UPDATED FOR MULTIPLE RK08S 8/11/70 

0011 / 

0012 / 

0013 / 

0014 / 

0015 / 

0016 / 

0017 / 
0020 / 
00 21 / 

0022 EJECT 



0023 








SEGMNT 3 


0024 








LMOOE 


0025 








»2 0 


0026 










0027 


0020 


0103 


SAM3. 


SAM 3 


0030 


0021 


1120 




ADA I 


0031 


0022 


6777 




-1000 


0032 


0023 


0342 




SCR 2 


0033 


0024 


4016 




STC CURVAL 


0034 


0025 


60 00 




JMP 0 


0035 


0026 


0107 


SAM7 . 


SAM 7 


0036 


2027 


0346 




SCR 6 


0037 


0030 


20 35 




ADD P10 


00 40 


0031 


6000 




JMP 0 


0041 


0032 


0016 




NOP 


0042 


0033 


0016 




NOP 


0043 


0034 


0016 




NOP 


0044 


2035 


0010 


P10 . 


10 


0045 


0036 


1000 


DSCCUR , 


LDA 


0046 


0037 


0000 




0 


0047 


0040 


4073 




STC SCPRTN 


0050 


00 41 


0044 




SET 4 


0051 


0042 


0014 




14 


0032 


0043 


1324 




UDH I 4 


0033 


0044 


1460 




SAE I 


0034 


00 45 


0037 




LF 


00 55 


00 46 


60 54 




JMP 8YHC 


0056 


0047 


1000 




LDA 


0057 


00 50 


0014 




14 


0060 


0051 


1440 




SAE 


0061 


0052 


0002 




2 


0062 


0033 


6712 




JMP Y5 


0063 










00 64 






/ 




0063 






/ 




0066 


0054 


0072 


8YMC, 


SET I 12 


0067 


0055 


0076 




CURSOR 


0070 


0056 


7762 




JMP J8TH 


00 71 


0037 


1020 




LOA 1 


0072 


0060 


7767 


JBM10, 


-10 


0073 


0061 


2765 




ADD VCOORD 


00 74 


0062 


1040 




STA 


0075 


0063 


0074 




CURVC 


0076 


0064 


1752 




OSC 12 


0077 


0065 


1772 




OSC I 12 


0100 


0066 


0011 




CLR 


0101 


0067 


4075 




STC CURFLG 


0102 


0070 


2060 




ADD JBMl 


0103 


0071 


1140 




AOM 


0104 


0072 


0001 


POSl, 


1 


i(Jl 05 


00 73 


00 00 


SCPRTN. 


0 


0106 


0074 


0000 


CURVC, 


0 


0107 


0075 


00 00 


CURFLG » 


0 


0110 


0076 


7717 


CURSOR. 


7717 


0111 


00 77 


1777 




1777 


0112 


0100 


0000 


GAPARG, 


0 


01 13 


0101 


0500 


DOCU 1 


lOB 


0114 








RHODE 


0115 


6102 


6041 




Tsr 


0116 








LMODE 


0117 


0103 


6101 




JMP DOCU 


0120 


0104 


0602 




LIF 2 


0121 


0105 


60 41 




JMP CLWA 



/KNOB S.R, 
/CURSOR 



/LNS PER FRAME 



/DISPLAY CURSOR 



/SET CURSOR POINTER TO POINT TO 
/GRID PATRN ADOR 

/SET STATUS NOW OF FLICKER INDICATOR, 

/CURSOR VC IS BELOW 

/CURSOR LN 

/VC or CURSOR LN 

/CURSOR VC 



/SET FLAG TO 0 

/RESET HC TO INHIB GAP BETWEEN CHARACTERS. 
/RTN 



/THESE LOCS DET. 
/CURSOR PATTERN 

/WAIT FOR TTY FREE BEFORE 

/CLEARING THE WORKING AREA 

/HANG 

/SET UP THE PROPER I ,F, 



0122 


0106 


0072 


OOP I » 


SET 1 12 


0123 


0107 


2372 




E6+1+2000 


01 24 












01 10 


1020 




IDA I 


Vi, CO 


0111 


2011 




2011 


0127 


0112 


1072 




STA I 12 


0130 


0113 


1020 




LDA I 


01 31 


Kl 14 


20 77 




2077 




0115 


1072 




STA I 12 


01 33 


01 16 


1020 




LDA I 


01 34 


01 17 


77 77 




nil 


01 35 


0120 


1072 




STA I 12 


tl X «o 


01 21 


1072 




STA I 12 


Kf X O / 


0122 


0647 




LDF 7 


0140 


0123 


1000 




LOA 


0141 


0124 


7341 




OS YS 12000 


©X ^fc 


0125 


06 41 




LDf 1 


01 43 


0126 


0470 




A2E: I 


01 44 


01 27 


00 11 




CL« 


011 Afi 
ItJX 


011 


1040 




STA 


Oli 4A 
ivx 


011 31 

uX wX 


23 77 




£6^6^2000 


IDX *t f 


0132 


6422 




JMP DOLO+2 


UX -'10 










WX 5i 


01 33 


10 20 


DOQL* 


LOA I 


If X -'C 


01 34 


7777 




7777 


10X 70 










01 34 


0135 


0642 




LOF 2 


01 5b 


01 36 


1040 




STA 


01176 


0137 


2774 


UNITNO*200 0»3 


0157 










0160 










0161 


0140 


0641 




LDF 1 


0162 


0141 


1040 




STA 


0163 


0142 


2000 




2000 


0164 


0143 


1020 




LDA I 


0165 


0144 


5000 




5000 


0166 


01 45 


6152 




JMP 8YAS 


0167 


0146 


0011 


DOLI . 


CLR 


01 70 


0147 


6135 




JMP DOQL+2 


0171 


0150 


1020 


DOAS, 


LOA I 


0172 


0151 


5002 




5002 


01 73 


0152 


4240 


BYAb, 


STC LIORCV 


01 74 


01 53 


62 42 




JMP W2 


(^1 7B 
V X ^ ? 


0154 


76 07 




JMP ecoN 


01 76 


01 55 


7275 




JMP CHKMT 


0177 


0156 


7051 




JMP ERRXIT 


0200 


0157 


10 20 




LDA I 


0201 


01 60 


01 10 




DISKS 


02 02 


01 61 


06 42 




LDF 2 


0203 


0162 


10 40 




STA 


0204 


01 63 


2777 




UNlTNO+2000 


0205 


0164 


1020 




LDA I 


0206 


0165 


0000 




0000 


0207 


0166 


4241 


RDCASM 


, STC 8LKST 


0210 


0167 


0641 




LOF 1 


0211 


0170 


0011 




CLR 


0212 


0171 


1440 




SAE 


0213 


0172 


2372 




2000*E6*1 


0214 


0173 


6177 




JMP ,+4 


02153 


0174 


1440 




SAE 


0216 


0175 


2371 




2000+E6 


0217 


0176 


7051 




JMP ERRXIT 


0220 


0177 


1000 




LDA 



/GET PIP 

/NAME SECTOR OF 

/MC PARAM TABLE 

/PUT P I P IN TABLE 

/PI 



/P77 (77 TERMINATES 
/NAME) 

/FILL OUT REST OF NAMES WITH 778 

/WORD NUMBER 3 
/WORD NUMBER 4 

/PREPARE TO PICK UP UNIT PARAMETER TABLE 

/GET THE DISK 8ITS(10 IF THERE, 7777 IF NOT) 

/RESET TO E6 SEGMNT 

/IF ITS EER0(7777) MAKE IT 0000 

/ELSE, LEAVE IT THE WAY IT IS (10) 

/UNI T SECTOR 
/NOW DO AN 
/LO PIP,0 

/HERE FOR QUICK LIST 
/THIS VALUE TELLS 
/ASSEMBLER TO QL 



/=7777 FOR QL .NE. 

/7777 FOR LI 

/NO MATTER FOR AS 



/SA FOR AS 



/START OF THE WORKING AREA WITH REF TO 110 



tic. c 1 


cup I^Ci 


P 7 1 




f% fyt CA ^ £^ 
c W Wio + L 6 






fflA AO 




LOT 2 




(759 ftp 


10 40 




o f A 




0203 


P 7 7*^ 




9 ft ft ft ^ t i hi 1 T M n _ 


0225 


ftp ft4 


001 7 




p n M 

u U n 


02 26 


02 05 


06 4 1 




L U r i 


0 2 2 7 


0 2 0 6 


1100 




ADA 


02 30 


0 2 0 7 


23 72 




P [?! i7 ft 4. r A * 1 


02 31 


0 210 


12 00 




LA M 


0232 


0211 


23 71 




P ft ft ft + r A 


ftp "^"^ 


ftp 1 P 

tiC ic 


ft4 RP 
»*♦ Pt 




Let 


0234 


0213 


7ft 1 

/ 10 P X 




J" r LH W A I 1 


02 35 


0214 


0642 




t n r p 




1 R 
ic) C X > 


10 40 




C T A 


02 37 


ftp 1 h 

t X o 


27 76 




p ft ftft ■* M M T T M n_ " 


02 40 


10 C X / 


ftft ft p 




D n D 
r u r 


024 1 








P M 0 0 E 


0242 


62 20 


62 1 2 
oc Xc 




fir 1 ft 


02 43 


6P P1 
cX 


44 ?1 
c X 




iM C T or A n 
Jn o I nt. AU 




AP p p 


ft S P 7 
lO 3 c / 




ID AC O 


0245 


6223 


6212 




L i r xa 


02 4 6 


AP P 4 


" *♦ c i 




1 M C ! DC A n 


024 7 


A P P R 
D C c -7 


«y V ic: 0 




JB AS 1 


02 50 


A P P^5 

0 t c o 


A 1 4 1 
O X *♦ 1 




L I NC 


02 51 








1 M nn r 
LnUUL 


02 52 


02 27 


06 42 




i nr P 


ftp S"^ 


ftp "^ft 


1 ft ftft 




1 n A 


02 54 


ftp 31 

wX 


ftp 41 




DL "NJ 1 


02 55 


0232 


1620 




ac r f 

Db L 1 


02 56 


It) c o o 


1 ft ftft 




1 ft ftft 

1 10 Kilo 


02 57 


02 34 






O 1 A 


0260 


ft p s 

iC C w 


2002 






C O X 


ftp XA 


ftft ftp 
1010 k^c 




on □ 
rU r 


a A ? 








RHODE 


ftp 


AP "^7 


PO •♦tfl 




JM P I « + 1 


IOC o*» 








LMOOE 


KiC 0 17 


f719 4 ft 




L I UK tV 1 


0 


O^'? A A 
lUC 0 0 


no A^ 
\0c HI 


03 7 0 


BL KS T » 


WA 


fJS O A 7 
k3 c 0 / 


02 42 


00 51 




se T 11 


P 7(51 


(0^ «* o 


ft (71 0( 01 




0 


019 71 


02 44 


7(51 7A. 




JMP DECODE 


vc f £ 


a O A Ki 


A r3 C i 




JMP , + 4 


ftp 7"^ 


»C ^0 


(71 A mo 




LI F 2 


02 74 


02 47 


7744 




JMP T2 


02 75 


02 50 


6011 




JMP 11 


02 76 


02 51 


06 02 




LIT 2 


02 77 


02 52 


77 44 




JMP 12 




(?tp ^ ^ 

ICfC P'J 


ft P ■? 1 
\oc ox 




XSK I 11 


0301 


0254 


6011 




JMP 11 


03 02 


02 55 


06 42 


CHKMC3 , 


Lor 2 


0303 


0256 


0046 




SET 6 


0304 


0257 


2007 




2007 


0305 


0260 


6266 




JMP CLRALL 


0306 


0261 


0641 




LDF 1 


0307 


0262 


1326 




LDH I 6 


031feJ 


0263 


6321 




JMP NUMCHK 


0311 


02 64 


62 70 




JMP MS 


0312 


0265 


6311 




JMP LOCATE 


0313 










0314 










0315 










0316 


0266 


0011 


CLRALL, 


CLR 


0317 


0267 


6000 




JMP 0 



/EXECUTE MC COMMAND 



/IS FIRST CHAR 0-7 ? 

/YES 00 LOG REQUEST 
/SEARCH MONI TOR 
/COMMAND TABLE 
/CLR NO PAS AND TRAP 





D»9 70! 


1 7 01 A 
X O Kf O 


MA . 

no » 


LDH 


6 




}0 Oc 1 


01 '^7 1 
It) <£ / X 


Oi"? AAl 
10 £ *t O 




ROL 


6 




vOcc 


OiO 79 






STC 


0 






(AO 7'< 


1 7 Ofs 
lO £.0 




LDH 


I 6 






010 74 


yen oia 




ADD 


0 


ypnuMAun vv tc f m ap 
/LUnnANU aa lb IN AL 




019 7R 


01 01 Al 




SET 


I 1 






(An 7 A 






26-1 


.+2000 


/DTD Trt ur» TADi C 

/rlR TU MC lABLE 


W 0 t / 


01 9 77 


OlDl A7 




SET 


I 7 






01 T Dl 01 


7 7 7K 
/ / 05 




26-Y6-.3 


/L LN bT H 


Ic/O 01 




019 97 




XSK 


1 7 


VTaQi C" CPAMKiCn 0 

/lAoLt. oLANiNLU * 


100 0^ 


wO \0c 


w4 3q 




SKP 




/N 0 


tA X X \ 


a < OCX 
100 I0O 


7 01 ^ A 
/ 10 40 




JMP 


XITERR 


/YES DELETE 


on 14 












/ILLEGAL CuMMANO 




03 04 


1461 


Nl 1 


SAE 


I 1 


/FOUND A MATCH ? 


0336 


0305 


63 01 




JHP 


t-4 


/NO 00 SOME MORE 


0337 


0306 


1021 




LOA 


I 1 


/LOAD A JMP INST 


K>0 HtO 


1711 017 
100 w / 


AX "i (A 
*tO xl0 




STC 


.^1 




19041 


100110 


1010 (010 




0 




/TO META 


lOO 












/LUC A 1 t. LN A aX A 


01 "< 4 Tt 
WO T 0 


0311 


1 01 OOl 
XlO ^10 




LDA 


I 


/HE5ET PTR TO 


Oft A A 


oil 1 9 


77 77 
Of// 




-HBIT 


/bTART OF 


10 0 *T !3 


01 7 1 1 


1 1 401 
X i '♦10 




ADM 




/ L> On M A IN U 


03 4 6 




Oi(A OlA 
1010 lOO 


DA 
^'0 f 


6 




/C TD T M P 
/O 1 n 1 Nb 


03 47 


03 15 


63 33 




JMP 


P56 




03 50 














If O J, 


0316 


064 1 




LDF 


1 






017 1 7 
I0O X f 


01^1719 




LIF 


2 




01 ^ S X 


0320 


oc X ■» 




JMP 


LOKATE 




0354 














0355 


0321 


1120 




ADA 


I 




0356 


0322 


7710 




-6 7 




/ TT A 7 


03 57 


03 23 


04 71 




APO 


I 


/N n 


0360 


03 24 


60 00 




JMP 


0 


/ T to lO IN U 1 A INUn 


03 61 


03 23 






ADA 


I 




0362 


0326 


0010 




10 






03 63 


03 27 


04 51 




APO 




/ n R7 9 


03 64 


03 30 


60 00 




JMP 


0 




03 65 


I0W OX 


0!5 9 01 




XSK 


I 0 




0366 


017 79 
KrO Oc 


A0i0l0l 
OKI 1010 




JMP 


0 


/VC*C TT tc a MttM 

/ T Lb it lb A Nun 














/DECODE MONITOR 


wO /Ifl 












/LOnMANu blKlNo 


01371 


0333 


0056 


r O 1 


SET 


16 


/ A W D TM 1 MP 


a""? 75 

I0O /£ 


017 74 
BO On 


0ICI Old 
1010 1010 




0 






Kiw O 


07 7IS 
I0O 07 


0101 i i 
1010 11 




CLR 




/SET NUM TO 0 


Oi 74 
lOO / 


017 1A 

100 Oo 


47 C14 
*t0 5^ 




STC 


T4 


/bTORE RESULT 


7S 
lOO / V 


lOO 0 / 


1 7 9 A 
XO ^0 




LDH 


I 6 




Dl ^ 7 A 


!0 0 *t 10 


1 4 901 
X H 4:10 




SHO 


I 




0377 


03 41 


40 00 




SPl 






0400 


0342 


6337 




JMP 


.-3 


/IGNORE SPACES 


0401 


0343 


6321 




JMP 


NUMCHK 


/DIGIT ? 


04 02 


0344 


6353 




JMP 


T4-1 


/NO EXIT 


0403 


0345 


1306 




LDH 


6 




0404 


0346 


1560 




BCL 


I 




0405 


0347 


7770 




77 70 


/0-7 TO AC 


0406 


0350 


2354 




ADD 


T4 




0407 


0351 


0243 




ROL 


3 




0410 


0352 


6336 




JMP 


P56 + 3 


/DO SOME MORE 


0411 


0353 


1020 




LOA 


I 




0412 


03 54 


0000 


T4, 


0 




/NUMBER TO MOVE 


0413 


0355 


0303 




ROR 


3 




0414 


0356 


6016 




JMP 


16 




0415 


0357 


7076 


OOMC, 


JMP 


DECODE 




0416 


0360 


7046 




JMP 


XI TERR 





0417 
04 20 
0421 

0422 

0423 

0424 

0425 

0426 

0427 

04 30 

0431 

04 32 

0433 

0434 

0435 

0436 

0437 

0440 

04 41 

0442 

04 43 

0444 

0445 

0446 

0447 

0450 

0451 

0452 

0453 

0454 

04 55 

0456 

0457 

0460 

0461 

0462 

0463 

04 64 

04 65 

0466 

04 67 

0470 

04 71 

0472 

0473 

0474 

04 75 

04 76 

04 77 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0510 

^3511 

0512 

0513 

0514 

0515 



0361 
0362 
03 63 

0364 
0365 
0366 
0367 
0370 
03 71 
03 72 
03 73 
0374 
03 75 
0376 
03 77 



6401 
6402 
6403 
6404 

0405 
04 06 
04 07 



6411 
6412 
6413 
6414 

0415 
04 16 
0417 

0420 
0421 
04 22 
0423 

6424 
64 25 
6426 
64 27 

0430 
0431 
0432 
0433 
0434 



0435 
0436 
0437 
0440 
0441 
0442 



7305 
06 00 
76 61 

0047 
0006 
1327 
1420 
4300 
7046 
70 76 
63 75 
6400 
1000 
2372 
7177 



0400 0002 



6212 
4421 
0533 
6141 

0641 
0602 
74 00 



0410 0002 



6212 
4421 
0537 
6141 

0641 
06 02 
70 42 

7076 
0016 
73 05 
00 02 

6212 
44 21 
0547 
6141 

0606 
6020 
0000 
0241 
4620 



06 42 
1000 
2010 
1040 
0602 
0042 



AAA4S3, 

DOAPr 



/ 
/ 

APRTN, 



DOLO, 



CURPTR . 
SCOPE, 



JMP E2 
LIF 0 
JMP KOOMC 



I 7 
I 



SET 
6 

LDH 
SHD 
CRl 

JMP XITERR 
JMP OECOOE 
JMP ,*2 
JMP ,*4 

LOA 

E6+1+2000 
JMP U2*3 



POP 

PMODE 

GIF 

JMS I 

JBAPl 

LINC 

LMOOE 

LOF 

LIF 

JMP 



POP 

PMODE 

GIF 

JMS I 

J8AP2 

LINC 

LMOOE 

LOF 

LIF 2 

JMP CI 



JMP DECODE 

NOP 

JMP E2 
POP 



10 

READ 



1 

2 

1400 



10 

HEAD 



PMODE 

GIF 

JMS I 

J8L0 

LINC 

LMOOE 

LIF 

JMP 



10 

READ 



6 

20 



ROL i 
STC LNFOR 



LOF 2 

LDA 

2000+10 
ST A 

FI RSWD 
SET 2 



/ADD PROGRAM 



/BY BLOCK NUM 

/BY NAME 

/UNIT NUM 

/PUT IN UNIT 

/NUM WO OF PARAM TABLE 



/GO DISPLAY 
/LOAD BINARY 



/PREPARE TO CALL THE LOADER NOW. 
/START THE LOADER GOING NOW 



/PRESET ONCE 
/PER FRAME 



( 



0516 


0443 


2002 




2000*2 


0517 


04 44 


6603 




JMP SCPSTR 


05 20 


04 45 


6553 




JMP I H Ai T 


0521 


0446 


6445 




JHP , = 1 


0522 


0447 


0641 


X I Tl # 


LOF 1 


0523 


0450 


0602 




LI F" 2 


0524 


0451 


6017 




JMP 17 


0525 




1000 


GETCUR » 


LDA 


0526 


0453 


0000 




0 


0527 




4552 




STC CURRTN 


0530 


0455 


0642 




LOT 2 


0531 


0456 


0070 




SET I 10 


0532 


04 57 


7774 




'3 


05 33 


0460 


6020 




JMP SAM3 


0534 


0461 


6466 




JMP CURGO 


0535 


0462 


4541 




STC TEMPS 


0536 


04 63 


45 42 




bTC ENQrLG 


0 53 7 


0464 


2541 




AOO TEMPB 


0540 


04 65 


6544 




JMP QUTCUR 


0b41 


0466 


1000 


CURGO* 


LOA 


05 42 


04 67 


0000 




0 


0543 


0470 


4543 




b 1 U All uUK 


0544 


04 71 


1000 




LOA 


0545 


0472 


0002 




2 


0546 


04 73 


14 40 




SA E 


0547 


0474 


0014 




14 


05 50 


04 75 


04 56 




SKP 


0551 


0476 


6543 




JMP XITCUR 


0552 


0477 


02 16 




Xb K LU n V AL 


0553 


0500 


0456 




SK P 


0554 


05 01 


6543 




1 M D Y T T P 1 ID 
J n r Ail u Un 


0555 


0502 


1120 


CURSlT ♦ 


AO A I 


0556 


0503 


37 77 




-MBIT 


05 57 


05 04 


02 36 




XSK I CUnVAL 


0560 


0505 


04 56 




SK P 


05 61 


05 06 


65 43 




ikt D V T T r* i ID 

Jflr A I I UUK 


0562 


05 07 


14 40 




S AE 


0563 


0510 


0014 




14 


0564 


05 11 


6502 




JMP CURSET 


0565 


05 12 


02 30 




XSK I 10 


05 66 


0513 


04 56 




SK P 


0567 


05 14 


65 43 




JMP X I t U UH 


05 70 


0515 


10 00 




lo a 


05 71 


0516 


05 42 




ENDFLG 


0572 


0517 


0470 




AH E I 


0573 


0520 


6525 




JMr CNfALL 


05 74 


0521 


0056 




bt 1 UU K V AL 


0575 


052 2 


0541 




T r MP o 


0576 


0523 


6466 




JMP CURGO 


0577 


0524 


6544 




JMP OUTCUR 


06 00 


0525 


1000 


CNTALL* 


LOA 


0601 


0526 


0002 




2 


0602 


0527 


1040 




STA 


0603 


0530 


0542 




ENDFLG 


0604 


0531 


0241 




ROL 1 


0605 


0532 


0017 




COM 


0606 


0533 


45 41 




STC TEMPB 


0607 


0534 


2014 




ADD 14 


0610 


0535 


02 41 




ROL 1 


0611 


0536 


2541 




AOO TEMPB 


0612 


0537 


4541 




STC TEMPB 


0613 


0540 


6000 




JMP 0 


0614 


0541 


00 00 


TEMPB. 


0 



/NORMAL CALL 
/TO SCOPE 
/NOT READY 
/READY GET A 
/CHAR 

/FIND CURSOR 
/CHAR 



/KNOB 3 TOO FAR 
/FREE2E CURSOR 



0615 


0542 


0000 


ENDFLG, 


0 




0616 


05 43 


0000 


XI TCUR, 


0 




06 17 


0544 


1040 


OUTCUR, 


STA 




0620 


0545 


0432 




CURPTR 


0621 


0546 


1120 




ADA 


I 


0622 


0547 


4000 




MBIT 


06 23 


0550 


1040 




STA 




0624 


0551 


2026 




2000+CURPT2 


06 25 


0552 


0000 


CURR TN , 


0 




0 62 6 


0553 


0045 


I I T, 


SET 


5 


0627 


0554 


00 00 




0 




0630 


0555 


6574 




JMP 


OUTSCP+1 


0631 


05 56 


0600 




LIF 


0 


0632 


0557 


6400 




JMP 


MODKBD 


063 3 


0560 


0225 




XSK 


1 5 


06 34 


05 61 


6005 




JMP 


5 


0635 


0562 


6603 


NOPAS, 


JMP 


SCPSTR 


0636 


0563 


6553 




JMP 


IWAIT 


06 37 


05 64 


0016 




NOP 


0640 


0565 


0456 




SKP 




0641 


05 66 


65 63 




JMP 


N0PAS*1 


0642 


0567 


0600 




LIF 


0 


0643 






/ 


JMP 


TRPRTN 


0644 






/ 






0645 


0570 


4601 




STC 


SVACC 


0646 


0571 


2000 




ADO 


0 


06 47 


05 72 


46 00 




STC 


DSCRTN 


06 50 


0573 


0000 


OUTSCP 1 


0 




0651 


0574 


1000 




LOA 




0652 


0575 


0000 




3 




06 53 


0576 


4573 




STC 


OUTSCP 


0654 


0577 


2601 




ADD 


SVACC 


0655 


06 00 


00 00 


DSCRTN, 


0 




06 56 


0601 


00 00 


SVACCr 


0 




06 57 


0602 


0000 


FI RSWD, 


0 




06 60 


0603 


1000 


SCPSTR , 


LOA 
0 




0661 


0604 


0000 






0662 


0605 


4573 




STC 


OUTSCP 


0663 


0606 


0054 




SET 


14 


0664 


0607 


0602 




F IRSWD 


0665 


0610 


6452 


JGC, 


JMP 


GETCUR 


0666 


0611 


0641 




LDF 


1 


06 67 


0612 


3023 




ADO 


EOFR AM 


0670 


0613 


4075 




STC 


CURFLG 


06 71 


0614 


3023 




ADD 


EOFR AM 


0672 


0615 


4074 




STC 


CURVC 




06 16 


4 1 00 




STC 


GAPARG 

1 


0674 


0617 


1020 




LDA 


06 75 


0620 


00 00 


LNFOR, 


0 




06 76 


0621 


5060 




STC 


K5 + 1 


0677 


0622 


1020 




LDA 


i 


070b 


0623 


0000 


HAXVC# 


0 


0701 
0702 


0624 


4765 




STC 


VCOORD 


0703 


0625 


6026 


F5, 


JMP 


SAM7 


0704 










0705 


06 26 


1460 




SAE 


I 


0706 


0627 


00 00 


OLDSAM, 


0 




0707 


0630 


0456 




SKP 




0710 


0631 


6634 




JMP 


.+3 


0711 


0632 


0602 




LIF 


2 


0712 


0633 


7535 




JMP 


SAMARG 


0713 


0634 


6570 




JMP 


OUTSCP-3 



/GO SCOPE 

/CHK DUBL BUFR 
/CHAR READY 
/EMPTY OR HTP 
/NO PAUSE CALL 
/TO SCOPE 



/LOOP TILL DUN 

/RTN TO 
/TRAP SR 

/cro^co^ INSTRUCTION WAS REMOVED BECAUSE TRAP HANDLER IS NO QNGER PRESENT, 
/5 CP S R EX I T 



/RTN JMP TO CALL 



/RTN JMP TO SCP 



/LN-1 FOR DISPLAY 



/ONCE PER LN 
/RTN WITH NUM LNS 
/PER FRAME 

/HAS KNOB 7 MOVED ? 



07 14 












/DISPLAY A LN NUM 


07 It) 












/DO NOT DISPLAY 


0716 












/LEADING 2ER0ES 


0717 


0635 


0061 


H5, 


SET 


I 1 




0720 


0636 


1013 




LNHC 




0721 












/NUM 


0722 


0637 


1020 




LOA 


I 




0723 


0640 


0002 




2 






0724 


06 41 


3060 




ADD 


K5 + 1 




0725 


0642 


50 60 




STC 


K5*l 




07 26 


0643 


7057 




JMP 


K5 


/GET GRID PTR FOR 


0727 












/DIGIT IN LN NUM 


0730 


0644 


0450 




AHE 




/IS IT A LEADING 0 ? 


0731 


0645 


6654 




JMP 


J5 


/NO DISPLAY FIRST NON 


0732 












/HERO DIGIT 


0733 


0646 


1120 




ADA 


I 


/YES INCREASE H COORD 


0734 


0647 


0012 




12 






0735 


0650 


2001 




ADO 


1 




07 36 


0651 


4001 




STC 


1 




0737 


0652 


7054 




JMP 


K5-3 


/AND GET NEXT DIGIT 


0740 


06 53 


66 44 




JMP 


,-7 


/CHK FOR LEADING iZRQ 


0741 


0654 


1120 




ADA 


I 




07 42 


0655 


0140 




140 






07 43 


0656 


6761 




JMP 


OSCCHR+1 


/DISPLAY A DIGIT 


07 44 


0657 


70 54 




JMP 


K5-3 


/GET PTR NEXT DIGIT 


0745 


0660 


6654 


AAA7S3i 


JMP 


J5 




0746 












/COME HERE To 


0747 












/DISPLAY THE LN 


07^)0 


0661 


0061 


01 STXT , 


SET 


I 1 




07 51 


0662 


1157 




TXTHC 


/INIT H COORD FOR 


07 52 












/FIRST CHAR OF A LN 


07 53 


0663 


7023 




JMP 


EOFRAM 


/CHK FOR END 


07 54 












/OF FRAME 


07 55 


06 64 


13 34 




LDH 


I 14 




07 56 


06 65 


14 20 




SHD 


I 




0757 


0666 


4700 




TBI 




/TAB ? 


0760 


0667 


6722 




JMP 


FLDSET 




07 61 


0670 


1420 




SHO 


I 




0762 


0671 


3700 




un 






07 63 


06 72 


67 12 




JMP 


Y5 




076 4 


06 7 3 


6760 


P5 1 


JMP 


OSCCHR 




0765 


0674 


7023 




JMP 


EOFRAM 




07 66 


0675 


13 34 




LOH 


I 14 




0767 


0676 


1420 




SHO 


I 




07 70 


06 77 


47 00 




TBI 






07 71 


07 00 


6722 




JMP 


FLDSET 




07 72 


0701 


1460 




SAE 


I 




D! 7 7 1 


i9l 7 (71 O 

^ 1 sac 


0043 




CR 






07 74 


0703 


66 73 




JMP 


P5 




0775 


0704 


1020 




LDA 


I 




0776 


0705 


1157 




TXTHC 




0777 
1000 


0706 
0707 


1440 
0001 




SAE 
1 






1001 


0710 


6774 




JMP 


W5 




1002 


0711 


66 25 




JMP 


F5 




1003 


0712 


1020 


Y5, 


LDA 


I 


/SET FOR MC 


1004 


0713 


7420 




MCVC 






1005 


0714 


4765 




STC 


VC 00 RD 




1006 


^715 


0061 




SET 


I 1 




1007 


id? 16 


1051 




MCHC 




1010 


0717 


1020 




LDA 


I 




1011 


0720 


0037 




LF 






1012 


0721 


6000 




JMP 


0 





1013 0722 0070 FLDSET, SET I 12 /SET FOR TAB 

1014 0723 0752 FLDTA8-1 

1015 0724 1030 GOTAB, LDA I 10 

1016 0725 1440 SAE 

1017 0726 0757 ENDTB 

1020 0727 6742 JMP ENDSKP 

1021 0730 1020 LDA I 

1022 0731 6120 -C0MT8 

1023 0732 2001 ADD 1 

1024 0733 4736 STC CARTB 

1025 0734 67 74 JM P W5 

1026 0735 1020 LOA I 

1027 0736 0000 CARTBi 0 

1030 0737 1140 AOM 

1031 0740 0001 1 

1032 0741 6674 jMP P5+1 

1033 0742 0017 ENDSKP, COM 

1034 0743 2001 ADO 1 

1035 0744 0471 APO I 

1036 0745 6724 JMP GOTaB 

1037 0746 0470 A2E I 

1040 0747 6724 JMP GOTAB 

1041 0750 1010 LOA 10 

1042 0751 4001 STC 1 

1043 0752 6674 jMP P5+1 

1044 0753 1277 FL0TA8. TAGTB 

1045 0754 1417 INSTBl 

1046 0755 1537 INSTB2 

1047 0756 1657 COHTB 

1050 0757 0000 ENDTB, 0 

1051 TABSET=120 
16J52 TXTHC=1157 

1053 TAGTB=TXTHC+TA6SET 

1^54 INSTB1=TAGTB+TABSET 

1255 INST82=INSTB1*TABSET 

\ 1^56 C0MTB=INSTB2+TABSET 

105^ /DSC 1 CHAR ACCORDING 

1^6^ /TO C(AC) AND RTN 

1061 0760 0241 DSCCHR, ROL 1 

1062 0761 1120 ADA I 

1063 0762 2000 M5 , A6=l*2000 

1064 0763 4012 STC 12 

1065 0764 1120 ADA I 

1066 0765 0000 VCOORDi 0 

1067 0766 2100 ADO GAPARG 

1070 0767 1772 DSC I 12 

1071 0770 1772 DSC I 12 

1072 0771 02 21 XSK I 1 

1073 0772 0221 XSK I 1 

1074 0773 6000 JMP 0 

1075 0774 0011 W5, CLR /SET VC 

1076 0775 0052 SET 12 /FOR NXT S CP LN 

1077 0776 0000 0 

1100 0777 1440 SAE 

1101 1000 0075 CURFLG 

1102 1001 7005 JMP ,*4 

1103 1002 1020 UDA I 

1104 1003 7767 -10 

1105 1004 4100 STC GAPARG 

1106 1005 1020 LOA I 

1107 1006 7760 -17 

1110 1007 1200 LAM 

1111 1010 0765 VCOORD 



1112 


1011 


1560 




BCL I 


1113 


1012 


7020 




7020 


1114 


1013 


0061 




SE T I 1 


lilt) 


1014 


1157 




TX THC 


1116 


1015 


6570 




JMP OUTSCP-3 


1117 


1016 


1460 




SAE I 


1120 


1017 


0360 




360 


1121 


10 20 


6012 




JMP 12 


1122 










1123 










1124 


1021 


4623 




STC MAXVC 


1125 


1022 


6012 




JMP 1 2 


1126 










1127 


1023 


1000 


EOFRAM » 


LOA 


1130 


1024 


0000 




0 


1131 


1025 


5040 




STC RTNEOF 


1132 


10 26 


1000 




LOA 


1133 


1027 


0014 




14 


1134 


1030 


14 40 




SAE 


1135? 


1031 


0432 




CUHP TR 


1136 


1032 


0456 




skp 


1137 


1033 


6036 




1 Jul D n c r" p 1 1 D 
JMP U5CCUR 


1140 


1034 


1000 




LO A 


1141 


1035 


0002 




2 


1142 










1143 


1036 


1440 




SAE 


1144 


1037 


0014 




14 


1145 










1146 


10 40 


0000 


DT KiC nc 
RT Nt Or 1 


(7 


1147 


1041 


0011 




clr 


1150 


1042 


0061 




SE T I 1 


1151 


1043 


17 63 




MK HC 


1152 


10 44 


67 61 




Jn r Uo UU HK + 1 


1153 


10 45 


66 06 




JMr bUralK + o 


1154 


1046 


05 00 


XI TE RR 1 


108 


1155 


1047 


6244 




6244 


1156 


1050 


6210 




JMP OELMC 


1157 






/ 




1160 


1051 


0002 


ERHX I T 1 


POP 


1161 








PMOOE 


1162 


7052 


5653 




JMP I .♦I 


1163 


7053 


77 35 




EA NO HB 


1164 








LMODE 


1165 






/ 




1166 










1167 


1054 


1520 




SRO I 


1170 


1055 


4210 




4210 


1171 


1056 


6661 




Jn r U I b 1 A i 


1172 










1173 










1174 


1057 


1020 


K5, 


LDA I 


1175 


1060 


0000 




0 


1176 


1061 


02 43 




ROL 3 


1177 


1062 


1040 




STA 


1200 


1063 


1060 




K5 + 1 


1201 


1064 


1560 




6CL I 


1202 


1065 


7761 




7761 


1203 


1066 


6000 




JMP 0 


1204 


1067 


1000 


KSAM7, 


LOA 


1205 


1070 


0000 




0 


1206 


1071 


5075 




STC EGGSIT 


1207 


1072 


6026 




JMP SAM7 


1210 


1073 


0500 




lOB 



/MOVE DISPLAY TO 
/TOP OF SCOPE 



/CHK END OF FRAME 



/PTR TO LAST CHAR 
/IN BUFFER 

/PTR TO LST 
/DISPLAYED CHAR 



/DISPLAY MARKER 



/COUNT DIGITS 



/EXEC THIS WHEN 
/LN NUM 

/HAS BEEN DISPLAYED 
/LN FOR DISPLAY 



19 11 


10 74 


62 44 




A 4 
0 c H ^ 








Lb bo i 1 t 


0 


•LC i.0 










4.** 










12 15 










1 5 1 ^» 
X c i. O 


1 CI 7 A 
XiC / o 




UL bU UL * 


L " 


1217 


1 7 7 

XiC f 1 


00 72 




Jt 1 1 xc 


12 2fe5 


1100 


23 71 




r A ♦ Di 


1 9 ?1 










12 22 












XX i^x 


1 n ^9 




CT A 19 
0 1 A XC 


19 94 


1 1 019 
XX 


10 72 




O I A 1 Ic 


12 25 


11 03 


0017 




CO M 


1226 


110 4 


10 72 




S T A I 12 


1227 


1105 


10 72 




ST A I 12 


12 30 


1106 


10 72 




S T A \ 12 


12 31 


11 07 


10 72 




<;T A ! 19 
O 1 A i xc 


12 32 


11 10 


00 iLii^ 






1233 


1111 


10 72 




A T 19 

JIM 1 Xc 


1234 


1112 


00 41 




SET 1 


1235 


1113 


0000 




0 


12 36 










1237 


1114 


00 72 




T T 19 
O L ) 1 X c 


12 40 


11 15 


23 70 




F6 al +9 0005 


12 41 


11 16 


0077 




<;r T I 17 


1242 


11 17 


77 75 




-2 


12 43 


11 20 


00 54 




T 14 
Ou ( x** 


1244 


1121 


0006 






12 45 


11 22 


6333 


F9 . 


JMP P56 


1246 










1247 


1123 


10 72 




QT A ? 19 
v) i A i Xc 


12 50 


1124 


13 06 




1 n u ^ 
LU n D 


12 51 


11 25 


14 20 




on U I 


1252 


XX w 






Ln X 


12 53 


X X C ' 


ftCH CHI 
ok; I0X 




Jn r 1 


12 54 


11 30 


1 4 60 




OA L 1 


12 55 


X X O A 


00 54 




r n M A 

L< U n A 


12 56 


X X O t 


7 1 T A 
/ X 00 




JM P » ♦ 4 


X t 9 / 


1X00 


ao It 

VC 0 / 




XSK I 17 


XC Ot' 


1 1 ^4 
XX <«>"♦ 


71 9f?l 




IM D CO 


1 9 

X c ox 


1 X w7 


71 49 




JMP , + 5 


1 9 ^%9 

X^ wC 


1 1 


OtCI i 1 
00 11 




CL R 


12 63 


1 1 "^7 
X X o ^ 


1 01 R9 
Xv 9c 




o 1 A xc 


1 9 /s A 
Xfc 0 


I 1 401 

II ^» 


004 6 




SET 6 


1 9 ^ii'i 
X^ 0 9 


1141 


v\0 x*t 




14 


X c OO 










i 9 A 7 


114 2 


CT i35 7 1 


N2 * 


SE T I 12 


1270 


1143 


63 72 




LO*'ti(yi(3X*cl<3«y!0 


1271 


1144 


0076 




SET I 16 


1272 


1145 


7766 




-11 


1273 


1146 


0221 




XSK I 1 


1274 


1147 


1326 




LON I 6 


1275 


1150 


1420 




SHD I 


1276 


1151 


4000 




SPl 


1277 


1152 


7147 




JMP » = 3 


1300 


1153 


1420 


REDO, 


SHD I 


1301 


1154 


4-300 




CRl 


13 02 


1155 


7046 




JMP XITERR 


13 03 


1156 


1420 




SHD I 


1304 


1157 


5700 




KOMI 


1305 


1160 


7046 




JMP XITERR 


1306 


1161 


1420 




SHO I 


1307 


1162 


7700 




QMARKl 



/MONITOR COMMANiD 
/STRING DECODE 
/LN, NAME .UNI T 



/PTR TO HON 
/PARAMETER TABLE 
/CLEAR THE TABLE 
/LN NUM 
/LN NUM 

/N 
/A 
/M 
/£ 

/UNIT NUM 
/SAV RTN JMP 

/LN NUM 



/COMMA CTR 



/AND RTN WITH A 
/NUM IN AC 
/STORE A LN NUM 



/END OF COMMAND 



/NO 

/FIRST COMMA ? 

/YES CHK FOR 2ND LN NUM 

/NO COMMA RESET 
/NUM TO 0 
/RESET COMMAND 
/STRING PTR 
/NAME 

/NAME SECTOR 

/NAME LENGTH CTR 
/SET RTN TO P+2 





1 1 A7 
X 1 0 0 


7 Dl 4 A 
/ 10 *♦ o 




tup y T Tr pp 


•1 '< i i 


1 1 A 4 
X 1 0 *♦ 


1 4 901 




cun T 


lolc 


1 1 hfi 
X X 






pn M A 1 

Li U n A X 


lOlO 


1 1 A ft 
XX O w 


71 74 




IMP N9 


1714 


1 1 

X X O ' 


13 72 




STH I 12 


1 0 


X X / If 


1326 




i DM T f\ 


13X6 


1 1 7 1 
X 1 / 1 


M9 7 A 




Y<; W ! 1 A 
AO fV i X O 


1 0 i / 


1179 
X X ^ c 


71 R7 
/ X 9 0 




IMP prnQ 


1 9 r7l 


1 1 77 
XX ' o 


7CI 4 A 
/ Id "to 




IMP y T Tr RR 


10 cl 












1 1 74 
XX f*^ 


63 33 


IJ9 . 


JMP P5 6 




117^ 
X X * 


00 40 




SET 0 


1 0 c *♦ 


1 1 7A 
X X / o 


^ci 011 

c/Kl lOX 






1 0 t 


I 1 77 

II / ' 


Xti tlO 




<IT A 
o 1 A 


1 9 A 
1 0 ^ O 


1 9 
X £ 


23 77 




pA «A >90IOIOI 


1 < 9 7 


12 01 


11 20 




AHA I 


13 30 


1202 


7 7 30 




**47 


l3 31 


1203 


0451 




apo 


13 32 


12 04 


60 00 




JMP 0 




19 05 

XC It J 


70 46 




IMP XfTFRR 


1334 










1335 


12 06 


7076 


OOSB f 


JHP DECODE 


1336 


1207 


7046 




IMP X ! TERR 


1337 


1210 


1306 






13 40 


1211 


14 20 




SHO I 




1919 
XC XC 


4300 




PR 1 
X 


i.o *tc 


Xc xo 






IMP ntiKiSR 


1 74 

lO O 


1914 

X t X ~ 


1 460 




S AE I 


13 44 


1915 

X t X 


00 54 




CO MA 


13 45 


12 16 


7046 




IMP y T TTRR 


13 46 


1217 


13 26 




LOH I 6 


134 7 


1220 


1420 




SHO I 


lo jV) 


19 91 
xCCx 


9&t 




pp nn r 


1 0 -) X 


19 9 9 


7997 
r CC 1 




IMP <^TPnp 

r o f r ur 


1 7 S9 
lO 17 <C 


1 9 93 
Xc «>o 


1 4 95! 
X~ 




o n u i 


1030 


1994 


1 4 




1 rnnr 


1 7 54 
XO -'•t 


1 9 S"? 

X£ fc? 


72 36 




IMP ^Ti 1 tor 


13 55 


12 26 


7046 




IMP XT Tr RR 


i 7 A 
10 90 


19 97 
xCC f 


1 C! 90! 


O 1 rur f 


1 n A T 


1357 


1230 


0200 




0200 


1360 


19 71 
X £ O X 


1 01 401 
Xv *T)£J 




ST A 


1 7 A1 
xo ox 


12 32 


2372 




9M0|CI 4.r A^ 1 
Cv vv C X 


1362 


1933 
XC oo 


109CI 

Xv £10 




1 HA T 


xo oo 


1234 


440101 




ffiVKf VKi 


13 64 


1 9 

X o ^ 


72 44 




IMP nn^A 

Ji 1 r V»C. I O f\ 


13 65 


12 36 


10 20 


1 I wr . 

O 1 L 1 <^li< f 


1 HA I 
LU M I 


1 7 A A 
X 0 OO 


19 77 

X w / 


401901 
H 10 c 10 




4020 


1367 


12 40 


1040 




ST A 


1370 


1241 


2372 




2000*E6*1 


1371 


12 42 


1020 




UDA I 


1372 


1243 


04 00 




0+400-»0 


1373 


1244 


1040 


GETSA, 


STA 


1374 


1245 


2371 




20004E6 


1375 


1246 


1326 




LDH I 6 


1376 


1247 


1420 




SHO I 


1377 


1250 


4300 




CRl 


1400 


1251 


7264 




JMP DUNSB 


1401 


1252 


6321 




JMP NUMCHK 


14 02 


12 53 


7046 




JMP XI TERR 


1403 


1254 


1306 




LDH 6 


1404 


1255 


1560 




BCU I 


1405 


1256 


7770 




7770 


1406 


1257 


1140 




AOM 



/GET UNIT NUM 



/NAME TOO LONG 
/UNI T 



/TEST FOR UNIT TOO LARGE. 
/LARGEST UNIT 

/IF POSITIVE THEN ITS WAY TOO LARGE (ABOVE 47) 
/GOOD UNIT. 
/ILLEGAL UNIT 
/SB.SR 

/NO NAME 



1407 


12 60 


2371 




?£900 4>r ^ 


14 10 


12 61 


63 33 




JMP P56 


1411 


1262 


1040 




ST A 


1412 


1263 


2372 




?P! ♦r 6* 1 


1413 


1264 


73 05 


OUNSB » 


JMP E2 


1414 


1265 


00 02 




POP 


1415 








PMOD£ 


14 16 


7266 


62 12 




CI r 10 


1417 


72 67 


4421 






1420 


7270 


0543 




JBS8 


1421 


7271 


61 41 




L I NC 


1422 








LMODE 


1423 


12 72 


06 41 




LD r 1 


1424 


12 73 


06 02 




Li" C 


1425 


1274 


6020 




JMP rrSA 


1426 






/ 




1427 






/ 




1430 






/ 




1431 










14 32 










1433 


1275 


06 42 


CHKMT» 


LDF 2 


1434 


1276 


1000 




LDA 


1435 


1277 


2451 




20 00 4'M AXl N 


1436 


1300 


0641 




LDF 1 


14 37 


1301 


14 60 




SAE I 


1440 


1302 


0001 




1 


1441 


1303 


0220 




X5K I 0 


1442 


1304 


60 00 




JMP 0 


1443 










1444 


1305 


0642 


E2 p 


LDF 2 


1445 


1306 


0011 




CLR 


1446 


1307 


10 40 




ST A 


1447 


1310 


27 42 




20004-X2<^5 


1450 


1311 


0500 




lOB 


1451 


1312 


6244 




62 44 


1452 


1313 


7744 




JMP T2 


14 53 


1314 


6000 




JMP 0 


1454 










1455 


13 15 


72 75 


OOSP » 


JMP fHKMT 


14 56 


13 16 


7046 




IMP y T TP RR 


1457 


1317 


7076 




JM p nr rn nr 


14 60 


13 20 


7046 




JMP yiTFRR 


14 61 


1321 


7305 




JM P E2 


1462 


1322 


0642 






14 63 


13 23 


10 00 




1 n A 


14 64 


1324 


2533 






14 65 


1 3 25 


53 35 




QT P nn QP TD 


1466 


1326 


0002 




PDP 


1467 








PMOOE 


1470 


7327 


6212 




GIF 10 


14 71 


73 30 


4421 




JMS 1 READ 


1472 


7331 


0543 




JBSP 


1473 


73 32 


6141 




LINC 


1474 








LMODE 


14 75 


13 33 


06 02 




LIF 2 


14 76 


13 34 


1020 




LDA I 


1477 


13 35 


0000 


DOSPTP, 


0 


15)00 


1336 


6023 




JMP FCSA*3 


1501 










1502 


1337 


6242 


DOPS, 


JMP W2 


1503 


1340 


73 43 




JMP . + 3 


1504 


1341 


7275 




JMP CHKMT 


1505 


1342 


7051 




JMP ERRXIT 



/DO THE SAVE BINARY 



/AS,SP 

/cm FOR EMPTY WA 



/EXIT LOAD BINARY SR 



/SAVE PROG 



/NO NAME 



/SET THE D.F. TO 2 TO PICK UP THE OF BLOCKS. 

/GET THE LAST BLOCK IN THE AC. 
/LAST BLOCK NUMBER 

/SAVE IN A TEMPORARY UNTIL PAST READ. 



/RECALL THE LAST BLOCK NUMBER NOW 
/TEMPORARY FOR THE LAST BLOCK NUMBER 



/PRINT MS 



1506 

15137 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

15 47 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1560 

15 61 

1562 

1563 

1564 

1565 



1343 0002 

7344 6212 

734t> 4421 

7346 0543 

7347 6141 

1350 0641 

13 51 0602 

1352 6025 

1353 7574 DOPX, 

1354 0002 

7355 6212 

7356 4421 

7357 0553 
7360 6141 



1361 
1362 



1364 
1365 
13 66 
1367 



0641 
0602 



1363 6020 



7076 
7046 
73 05 
0002 



7370 6212 

7371 4421 

7372 0543 

7373 6141 



1374 
1375 



0602 
6021 



/ 
/ 
/ 
/ 
/ 

DOABf 



POP 

PMOOE 

CIF 

JMS I 

JBSP 

LINC 

lmode: 
tor 

UIF 



10 

READ 



JMP FCSA*5 
/PX 

JMP 12 
POP 
PMODE 
CIF 
JMS I 
J8PXDX 
LINC 
LMOOE 
LOF 
LIF 

JMP 20 



JMP 

JMP 

JMP 

POP 

PMODE 

CIF 

JMS I 

JBFC2 

LINC 

LMODE 

LIF 

JMP 



10 

READ 



DECODE 
XI TERR 
E2 



10 

READ 



2 

FCSA^l 



/DECODE THE COMMAND 
/AN ERROR. REDO EDITOR 
/FORCE THE EXIT NOW. 

/GET OVER INTO THE WONDERFULL MODE 
/PREPARE TO CALL THE ROUTINES 
/CALL THEM IN NOW, 
/THEYRE SING CALLED IN NOW, 
/BACK TO THE CALLING SIDE 

/SET UP THE CORRECT INSTRUCTION FIELD 
/DO ITiBUBBY 



EJECT 



Ib66 / 

lb67 / 

1^7(3 / 

lb71 / 

15 7ii / 
1!573 / 
1^74 / 
lb75 / 
Iblt / 
15)77 / 

1600 »7377 

1601 / 

1602 / 

1603 / 

1604 / 

160t> / THIS LOCATION IS A RETURN FROM FIELCQMS 

1606 / SO THAT "L I , AS , AND QL " WILL GO INTO 

1607 / THE EDITOR AND START THE ASSEMBLER GOING 

1610 / DO NOT REMOVE. ITS A NO-NO, 

1611 / 

1612 / 

1613 / 

1614 / 
161!? / 

1616 / 

1617 1377 6166 JMP RQCASM /ASSEMBLER READ IN LOCATION, 

1620 / 

1621 / 

1622 / 

1623 / 

1624 / 

16 25 / 
16 26 / 
1627 / 

1630 / 

1631 / 

1632 / 

16 33 EJECT 



1634 






/KBD INPUT CONVERSION 


ROUT INES 


163b 






/TABLE CONTAINS ASCI I 


CODES OF ALL 


1636 






/SPECIAL AND ILLEGAL 


CHARS 


1637 






/HIGH OKDER 4 BITS HOLDS 


i A MICRO ADDR 


1640 






/RELATIVE TO LOC KLEGAL 




1641 






• 1400 






16 42 


1400 


1000 


KBDOPR* LDA 






1643 


1401 


00 00 


0 






16 44 


14 02 


5523 


STC RTNJMP 






16 45 


1403 


0500 


108 




/GET THE CHAR 


1646 






PMOOE 






164 7 


7404 


6036 


KR9 




/READ IN THE CHAR 


16 50 






LMODE 






16 551 


14 05 


15 60 


ecu I 






16 52 


14 06 


76 00 


7600 






1653 


1 407 


10 4 0 


ST A 






16 5)4 


1410 


■i f\ Aa 


CHAR 












STC EN0TA8 




/ \ ACT t*Li k D fM TADiC 

/LAST CHAK IN lAoLt 


16 56 










/WILL GENERATE A MATCH 


16 57 










/IN bC AN ROUT I NL 


1 A A a 










/Hkit fCC A CDrrr'TAi 
/UNLLbb A brLUlAL 


16 61 










/UK ILLtGAL CHAK 


16 62 










/WAS STRUCK 


i,0 oo 


1419 


00 61 


SET I 1 






XO 0*1 


X^ XO 


1 49 
X3 


TA8L£«1 






16 65 


14 14 


1 D101 
i tJcl 


SPYTA81 LOA I 1 




/NEXT CHAR 


16 66 


1415 


15 60 


BCL I 




/LOOK AT 


1 A A 7 

loo/ 


1416 




7600 




/EVEN ASCI I ONLY 


16 70 


1 A 1 7 


A 4(91 


SAE 




/FOUND A 


16 71 




~ J OXt 


CH AR 




/ AJ A T 1 1 'J 

/MATCH i 




m c X 


7 414 


JMP SPYTA8 




/NO 00 Some more 


1673 


14 22 


13 01 


LOH 1 




/MICRO ADDR TO 


167 4 


X*t t J 


M Tt 4 0 

w 0 *t c 


SCR 2 




/LOW ORDER FOUR BITS 


1675 


14 24 


1120 


ADA 1 




/MAKE A JMP INST 


16 7 6 




f *J Oo 


JMP*KLEGAL 




/RELATIVE TO KLEGAL 


1677 


1426 




STC AJMP 






1700 


1427 


0221 


XSK I 1 




/DIAL CODE OF INPUT 


1701 


1430 


1321 


LDH I 1 




/CHAR IS LOW ORDER 


17 02 










/6 BITS OF LOC 


1703 










/FOLLOWING MATCH 


17 04 


14 31 


55 57 


STC ENOTAB 






1705 


1432 




AJMP, 0 




/GO TO S .R . 


17 06 


A A XX 
X7OO 


7 A A 7 


KLEGALi JMP LEGAL 




/HERE FOR LEGAL CODE 


< 7 017 
1 / B / 


X *» "J *♦ 


7mA 
/ 3 X 0 


JMP ILEGAU 






1710 


14 35 


74 71 


JMP TAB 






1711 


1436 


7475 


JMP KCR 






1712 


1437 


7477 


JMP RUBOUT 






1713 


1440 


7506 


JMP LNPEEO 






1714 


1441 


7507 


JMP ALTM 






1715 






/FOR ADDITIONAL SPECIAL 


CHARS 


1716 


1442 


7513 


JMP ALT2 






1717 


1443 


3560 


LEGAL* ADO CHAR 






1720 


1444 


1120 


ADA I 






1721 


1445 


7637 


-140 






1722 


1446 


0451 


APO 






1723 


1447 


7454 


JMP ,*5 






1724 


14 50 


1120 


AOA I 






1725 


1451 


7745 


-32 






1726 


1452 


0451 


APO 






1727 


1453 


7460 


JMP ,*5 






1730 


1454 


1000 


LOA 






1731 


1455 


1560 


. CHAR ^ 






17 32 


14 56 


7534 


/ JMP TYPE 







1733 


1457 


7517 




JMP EXIT 


1734 


14 60 


1000 




LD A 


1735 


1461 


1560 




CHAR 


1/36 


14 62 


1560 




BCL I 


1737 


1463 


0040 




40 . 


1740 


1464 


7534 




. JMP TYPE 


1741 


1465 


3557 




""stro enotab 


1742 


1466 


1560 




8CL I 


1743 


1467 


■ 00 40 




40 


1744 


1470 


7520 




JMP EXIT+1 


1745 


1471 


1020 


TABi 


LOA I 


1746 


1472 


0240 




240 


1747 


1473 


/534 




JMP TYPE- 


1750 


1474 


7517 




JMP EXIT 


l7t)l 


1475 


7524 


KCR» 


JMP TYCAR 


1752 


1476 


7517 




JMP EXIT 


1753 


1477 


10 20 


RUBOUT , 


LD A I 


1754 


1500 


0334 




334 


1755 


1501 


7534 




JMP TYPE ) 


1756 


1502 


3557 




ADO ENOTAiB 


1757 


1503 


1620 


ALTMl* 


BSE I 


1760 


1504 


4000 




4000 


1761 


1505 


7520 




JMP EXIT*! 


1762 


1506 


7517 


LNFEEO* 


JMP EXIT 


1763 


1507 


3557 


ALTM , 


ADO ENOTAB 


1764 


1510 


1560 




BCL 1 


1765 


1511 


0041 




0041 


1766 


1512 


7503 




JMP AlTMI 


1767 


1513 


1020 


ALT? 1 


LOA I 


1770 


1514 


4036 




4036 


1771 


1515 


7520 




JMP EXIT+1 


1772 


1516 


5557 


ILEGAL » 


STC ENOTAB 


1773 


1517 


3557 


EX IT , 


AO 0 EN OT AB 


1774 


1520 


0500 




lOB 


1775 


1521 


6244 




6244 


1776 


1522 


0006 




DJR 


1777 


1523 


0000 


RTNJMP 1 


0 


2i300 


1524 


1000 


TYCARi 


LOA 


2001 


1525 


0000 




0 


2(^02 


1526 


5533 




STC RTN 


20 03 


1527 


3547 




ADO CRCODE 


2004 


1530 


7534 




JMP TYPE 


2005 


1531 


3545 




ADD LFCODE 


2006 


1532 


7534 




JMP TYPE } 


2007 


1533 


0000 


RTN, 


0 


2010 


1534 


0002 


TYPE, 


POP 


2011 










2012 








PMOOE 


2013 


7535 


6041 




Tsr 


2014 


7536 


5335 




JMP .-1 


2015 


7537 


6046 




TLS 


2016 


7540 


7200 




CLA 


2017 


7541 


6141 




LING 


20 20 








LMOOE 


2021 


1542 


60 00 




JMP 0 


20 22 






/TABLE FORHAT IS : 


2023 






/XX00+0YYY 


2024 






/AA2Z where; 


2025 






/XX= UNROTATED MICRO 


2026 






/1400 ROR 10=0003 


2027 






/AND C{KlEGAL+3) = JM 


2030 






/YYY= ASCI 1 CODE 


2031 






/HZs DIAL CODE FOR YY 



/TYPE OUT A SPACE FOR A TAB 
/AND THEN RETURN 



/TYPE AC 
/AND RTN 



IS A 



^0i2 
2i3 3i 
2034 
2033 



/SPECIAL CHAR 



2feJ 66 


15 43 


1211 


TABLE » 


1000+211 /TAB 


^0 37 


15 4 4 


06 4 7 




^^4 00 + 247 /APnsTRnpwr 


20 40 


15 45 


2 612 


LF CO OE 1 




2(i? 4 1 


1546 


07 37 




tl4PI0 + ^'^7 /Lrri ARROW 


204 2 


1547 


1615 


o n \j u u c f 


1 4 0M +P 1 S 


20 4 3 


1550 


0643 






2044 


1551 


3375 






20 45 


1552 


3376 




■^000 + 176 /Ai T 


2046 


1553 


237 7 




2000+377 /RUBOUT 


2047 


1554 


0737 




0400+337 /LEFT ARROW 


20t70 


1555 


3633 




3400*233 /ALT ESCAPE 


20 51 


1556 


07 00 




0400*300 /AT SIGN 


20 52 


15 57 


0000 


GNDTAB t 


0 /C (C HA R ) 


2053 


1560 


0000 


CHAR , 


0 /LOC FOR INPUT CHAR 


2054 








/ABOVE 2 TAGS NOT 


2055 








/TO BE MOVED 


2056 






/ 




2057 






/ 




2060 






/ 




20 61 






/ 




2062 


1561 


7305 


OOEX . 


JMP E2 /EXIT 


2063 


1562 


0000 




HLT 


2064 


1563 


0602 




LIF 2 


2065 


1564 


6020 




JMP 20 


2066 


1565 


7574 


DODX • 


JMP 12 


2067 


1566 


00 02 




POP /GET OVER INTO 


2070 








PHOOE 


2071 


7567 


6212 




CI F 10 


20 72 


7570 


44 21 




JMS I READ 


2073 


7571 


0553 




JBPXDX 


2074 


7572 


6141 




LI NC 


20 75 








lmode 


2076 


1573 


6447 




JMP XITl 


2077 


1574 


1000 


22 » 


LD A 


2100 


1575 


0000 




0 


2101 


1576 


5606 




STC P2T 


2102 


1577 


7076 




JMP DECODE 


2103 


16 00 


7602 




JMP ,♦2 


2104 


1601 


7046 




JMP XITERR 


2105 


1602 


1000 




LOA 


2106 


1603 


2372 




£6+1+2000 


2107 


1604 


7177 




JMP U2+3 


2110 


1605 


7305 




JMP E2 


2111 


1606 


0000 


P2T, 


0 


2112 


1607 


0002 


ECON, 


POP 


2113 








PMODE 


2114 


7610 


6212 




GIF 10 


2115 


7611 


4421 




JMS I READ 


2116 


7612 


0543 




J8FC2 


2117 


7613 


6141 




LINC 


2120 








LMODE 


2121 


1614 


0642 




LOF 2 


^:122 


1615 


0602 




LIF 2 


2123 


1616 


6024 




JMP FCSA+4 


2124 


1617 


00 00 


AATTY3, 


0 


2125 


1620 


06 42 


GOODY, 


LOF 2 


2126 


1621 


4012 




STC 12 


2127 


16 22 


1012 




LOA 12 


2130 


1623 


03 02 




HOR 2 



2131 1624 1560 BCL I 

2132 1625 7776 -1 

2133 1626 1120 ADA I 

2134 PMOOE 

2135 7627 4421 JMS I READ 

2136 LMODE 

2137 1630 t>661 STC GCL0C41777 

2140 1631 1032 UDA I 12 

2141 1632 1560 BCU I 

2142 1633 7000 ^777 

2143 1634 5704 STC GTOUT 

2144 1635 1012 LOA 12 

2145 1636 0243 ROL 3 

2146 1637 1560 BCL I 

2147 1640 7774 -3 

2150 1641 1620 BSE I 

2151 1642 0004 4 

2152 1643 5/03 STC GCORE 

2153 1644 1012 LOA 12 

2154 1645 0017 COM 

2155 1646 1560 BCL I 

2156 1647 3777 -4000 

2157 1650 0243 ROL 3 

2160 1651 3703 ADO GCORE 

2161 1652 5703 STC GCORE 

2162 1653 02 32 XSK I 12 

2163 1654 0002 POP 

2164 PMOOE 

2165 7655 1301 TAD WATAG /GET WORKING AREA POINTER, 

2166 7656 1304 TAD GTOUT 

2167 7657 3304 OCA GTOUT 

2170 7660 6212 CIF 10 

2171 7661 4421 GCLOC. JMS I READ 

2172 7662 7702 GCTWO 

2173 7663 6141 LINC 

2174 LMODE 

2175 1664 1020 LDA I 

2176 1665 0110 DISKS 

2177 1666 5702 STC GCTW0&1777 

2200 1667 1020 LDA I 

2201 1670 7410 -WA*1 

2202 1671 5701 STC WATAG«1777 

2203 1672 0641 LDF 1 

2204 1673 0602 LIF 2 

2205 1674 2012 ADD 12 

2206 1675 5700 STC ,*3 

2207 1676 0017 COM 

2210 1677 0006 DJR 

2211 1700 0000 0 

2212 / 

2213 / 

2214 PMODE 

2215 7701 7410 WATAG, -WA 

2216 LMODE 

2217 / 

2220 1702 0110 GCTwOf DISKS 

2221 1703 0000 GCORE, 0 

2222 1704 0000 GTOUT, 0 

2223 1705 0001 1 

2224 / 

2225 / 

2226 / 

2227 / 



2230 






/ 








2231 






/ 








2232 






/ 








2233 






/ 








2234 






/ 








2235 






/ 








22 36 






/ 








22 37 






/ 








2240 






/ 








2241 


17 06 


7305 


ZERO, 


JMP 


E2 


/THIS IS THE ZERO BINARY ROUTINE, 00 AN EX, 


2242 


1707 


0002 




POP 




/GET OVER INTO 8 MODE 


2243 








PMODE 




/TEL ASSY WERE IN 8 MODE 


2244 


7710 


72 40 




CLA CMA 




/PREPARE TO ZERO UPPER CORE 


22 45 


7711 


3010 




OCA 


10 


/0-1 


22 46 


7712 


1362 




TAD 


ZM7000 


/ZERO OUT 7000 WORDS OF UPPER CORE 


2247 


7713 


3011 




DCA 


11 


/SAVE IN A COUNTER 


22t30 


7714 


6211 




CDF 


10 


/SET THE DATA FIELD TO POINT T UPPER CORE 


2251 


7715 


3410 




DCA 1 


10 


/ZERO A WORD OF CORE 




7716 


2011 




ISZ 


11 


/DONE? 


2253 


7717 


5315 




JMP 


.-2 


/NOPE, LOOP 


2254 






/ 








2255 


7720 


6201 




CDF 


0 


/RESET THE DATA POINTER TO FIELD 0 FOR THE WRITE 


2256 


7721 


6212 




GIF 


10 


/SET THE INSTRUCTION FIELD TO 1 


2257 


7722 


4422 




JMS I 


WRITE 


/WRITE AND ZEROTHE OUTPUT AREA 


22 60 


7723 


7740 




2P1 






2261 


7724 


6212 




CIF 


10 




2262 


7725 


4422 




JMS ! 


WRITE 




2263 


77 26 


77 44 




2P2 






2264 


7727 


6212 




CIF 


10 




2265 


7730 


4422 




JMS 1 


WRITE 




2266 


7731 


7752 




ZP3 




/BINARY AREA SHOULD NOW BE ZERO 


2267 


7732 


6212 




CIF 


10 


/SET I,F. TO UPPER CORE FOR ONE MORE CALL 


2270 


7733 


4422 




JMS I 


WRITE 


/NOW ZERO OUT THE BIT MAP, 


2271 


7734 


7756 




2P 4 




/POINTS TO THE BIT MAP 


2272 


7735 


6212 


CAN02B* 


CIF 


10 


/NOW REBOOTSTRAP DIAL 


2273 


7736 


5737 




JMP I 


.+1 




2274 


7737 


7777 




7777 






2275 






/ 








2276 






/ 








2277 






/ 








2300 






/ 








2301 


7740 


0111 


2P1, 


111 






2302 


7741 


0020 




20 






2303 


7742 


0000 




0 






2304 


7743 


0016 




16 






2305 






/ 








2306 






/ 








2307 






/ 








2310 






/ 








2311 


7744 


0111 




111 






2312 


7745 


0020 




20 






2313 


7746 


0016 




16 






2314 


7747 


0016 




16 






2315 






/ 








2316 






/ 








2317 








«7752 






2320 






/ 








2321 


7752 


0111 


ZP3, 


111 






2322 


7753 


0020 




20 






2323 


7754 


0034 




16*16 






2324 


7755 


0004 




40-16»16 




23 25 






/ 








2326 






/ 









2327 






/ 






2330 


7756 


0111 


ZP4. 


111 




2331 


7757 


0020 




20 




2332 


7760 


0057 




57 




2333 


7761 


0001 




1 




2334 






/ 






2335 






/ 






2336 






/ 






2337 






/ 






2340 






/ 






2341 






/ 






2342 






/ 






2343 






/ 






2344 






/ 






2345 






/ 






2346 






/ 






2347 






/ 






2350 






/ 






2351 






/ 






2352 






/ 






2353 






/ 






2354 






/ 






23 55 






/ 






2356 






/ 






2357 






/ 






23613 






/ 






23 61 






/ 






2362 






/ 






2363 






/ 






2364 








LMODE 




2365 






/ 






2366 






/ 






2367 






/ 






2370 






/ 






2371 






/ 






2372 






/ 






2373 


1762 


1000 


JBTMT. 


LDA 




23 74 


1763 


1771 




J8TMTS 




23 75 


1764 


1660 




BCO I 




23 76 


1765 


0020 




20 




2377 


1766 


1520 




SRO I 




24 00 


1767 


4444 




4444 




2401 


1770 


5771 




STC 


JB 


2402 


1771 


0456 


JBTMTS* 


SKP 




2403 


1772 


6000 




JMP 


0 


2404 


1773 


0072 




SET I 


12 


2405 


1774 


1776 




JBNULO 




2406 


1775 


6000 




JHP 


0 


24 07 






/ 






2410 






/ 






2411 






/ 






2412 


1776 


0000 


J8NUL0, 


0 




2413 


1777 


0000 




0 




2414 






/ 






2415 






/ 






2416 






/ 






2417 






/ 






2420 






/ 






2421 






/ 






2422 






/ 






2423 






/ 






2424 






/ 






2425 








PMOOE 





/POINTS TO THE BIT MAP, 
/ONE BLOCK PGR THE BIT MAP 



/TELL ASSY WERE IN LMODE 



/GET THE SWITCH IN THE AC. 
/COMPLEMENT THE SKP BIT NOW, 

/TEST FOR 12 TIMES THROUGH 

/ONE IN SIX COUNTER 

/SAVE AWAY NEW ONE 

/SKIPS SOMETIMES 

/RETURN SOMETIMES 

/SET CURSOR TO DISPLAY BLANKS. 



2426 / 

2427 / 

2430 / 

2431 / 

2432 / 

2433 / 

if4 34 ZM700(3=JBTMT /LOA IS A 106)0 WHCIH IS -7000 

24 35 / 

2436 / 

2437 / 
244t1 / 

2441 »7750 

2442 / 

2443 / 

2444 / 

2445 7750 7747 ,-1 

2446 7751 7751 , 

2447 / 

2450 LMODE 

2451 / 
24 52 / 

2453 / 

2454 / 

2455 / 

2456 EJECT 



24^>7 / 

2460 / 

2461 / 
24 62 / 
2463 / 
24 64 / 



246i> 



CHAIN "EDITORS" 



0000 
0001 



0002 
00 03 

mjdA 

00 05 

0006 

t?007 

0010 

0011 

0fe512 

0013 

0014 

0015 

0016 

0017 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

00 41 - 

0042 

0043 
00 44 

0045 

0046 

0047 

00 50 

00 51 

00 52 

0053 

0054 

0055 

0056 

0057 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0070 

0071 

00 72 

00 73 

0074 

0075 

0076 

0077 

0100 



0010 
0011 
0012 
0013 
0014 



0020 
0021 

0022 
0023 
00 24 
0025 
00 26 

0027 
0030 

40 31 
4032 
4033 



00 35 
0036 
0037 
00 40 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
00 50 
0051 
0052 
0053 
0054 
0055 



7774 
0100 
0000 
0010 
0010 



6022 
6027 
0647 
07 00 
6322 
07 00 
7323 

0640 

0002 

6212 
4610 
4011 



4034 6141 



0600 
7033 
6053 
7042 
0600 
6770 
6053 
1020 
5262 
1062 
10 20 
60 4 3 
1062 
7042 
0046 
0000 
0002 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 

/ 
/ 

BTREAD, 
BTREC, 



SEGMNT 2 



«10 



7774 

DISKO 

0 

DI ALST*10»300 

10 



/ADDRESS or THE READ ROUTINE, 



TEMPI, 

TEMP2, 

TEMP3, 

TOPPTR , 

CURPT2, 

/ 

PASTL* 



/ 

RETEX, 
CLWA , 



*20 
JMP 
JMP 

LOF 
ROC 

6\SETUP1 
RDC 

7\S£TUP2 

LDF 
POP 
PMODE 
CIF 
JMS I 
BTREC 



.♦2 

PASTL 

7 



0 



10 

8TREA0 



/READ IN THE REST OF DIAL 



INBUF, 



LINC 

LMODE 
LIF 0 

JMP OLDPTR 
JMP INBUr 
JMP CI 

LIF 0 

JMP IMPTRS 
JMP INBUF 
LOA I 
5262 
STA I 2 
LOA I 
60 00+CR 
STA I 2 
JMP 01 
SET 6 
0 

POP 
PMODE 



/RTN FROM EXIT 



/CLR THE WA 



/SAVE RETURN 



Z101 
0102 

0104 

010t> 

0106 

0107 

0110 

0111 

0112 

0113 

0114 

01 lb 

0116 

01 17 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0140 

0141 

0142 

0143 

0144 

01 45 

0146 

0147 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

01 70 

01 71 

0172 

0173 

0174 

0175 

0176 

0177 



40 56 6212 

4057 4421 

4060 0567 

4061 6141 

0062 6771 

0063 0011 

0064 4351 
00 65 00 02 



4066 
40 67 
4070 
4071 
4072 
4073 



1275 
3676 
12 75 
3677 
3700 
6141 



0074 6006 

4075 0513 

4076 0506 

4077 0507 

4100 0502 



0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

01 13 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0140 

01 41 

0142 

0143 

0144 

0145 

0146 

0147 



1020 
4000 
1140 
0026 
1020 
0047 
13 62 
0053 



KBOIN, 
KBDOUT, 
KCTH» 

TBT0W8, 



ACTOWB, 
CHKBUF * 



6352 

63 72 

6166 

6310 

6013 

1020 

0001 

1440 

04 51 

6125 

6041 

1440 

0447 

6131 

7044 

1302 

1460 

0043 

6143 

1020 

7776 

6504 

2451 

44 51 

4146 

6176 

6152 

1020 

0000 

0450 



Dl » 



GIF 10 
JMS I READ 
U I NB UF 
LINC 
LMODE 

JMP INITLF 

CLR 

STC PLAFLG 

PUP 

PMOOE 

TAD KHERE 

OCA I KBDIN 

TAD KHERE 

DCA I KBDOUT 

OCA I KCTR 

LINC 

LMOOE 

JMP 6 

PHODE 

HERE 

PTRIN 

PTROUT 

CHRCTR 

LMODE 

LOA 1 

H8IT 

ADM 

CURPT2 
LOA I 

TB 
STH 
SET 
0 

JMP CHKWBF 

JMP WBFULL 
JMP CHKPLA 
JMP PLAFUL 
JMP 13 
LOA I 
1 

SAE 
MAXLN 
JMP .+2 
JMP 
SAE 
CURLN 



/RETURN 



1 2 
13 



/INSERT TAB 



/CHK INPUT BUFRS 



/DELETE CUR LN 



CLWA 



EOBLDP, 

EOBPST, 
EOBWRDi 



JMP ,+2 
JMP Cl+2 
LDH 2 
SAE I 
CR 

JMP EOBPST 

LOA I 

-1 

JMP EOLFIX+2 
ADD MAXLN 
STC MAXLN 
STC E08WRD 
JMP NOTOK 
JMP Kl 
LOA I 
0 

AZE 



0200 


0150 


6135 




JMP 


EOBLOP 




02 01 


01t>l 


7042 




JMP 


CI 


/GO DISPLAY 


02 02 






/ 








02 03 


0152 


0050 


Kl . 


SET 


10 




0204 


0153 


0000 




0 






0203 


0154 


6551 




JMP 


CHKW8E 


/CHK WB EMPTY 


0206 


0155 


1020 




LDA 


I 




0207 


0156 


77 76 


MINUSli 


-1 






0210 


0157 


6170 




JMP 


CHKPLA+2 




0211 


0160 


4171 




STC 


PLACTR 




0212 


0161 


6611 




JMP 


BUl^B 




0213 


0162 


6154 




JMP 


Kl*2 




0214 


0163 


0043 




SET 


3 




0215 


0164 


0002 




2 






0216 


0165 


6010 




JMP 


10 




02 17 












/COUNT PLAYGRND 


0220 


0166 


1020 


CHKPLA, 


LDA 


I 


/DECREASE 


0221 


0167 


0001 


PI # 


1 




/COUNT BY ONE 


0222 


0170 


1160 




ADM 


I 




0223 


0171 


0000 


PLACTR, 


0 






0224 


0172 


0450 




A2E 




/IS PLAYGRND FULL ? 


0225 


0173 


0220 




XSK 


I 0 


/NO 


0226 


0174 


3072 




ADD 


P1000 




0227 


0175 


6000 




JMP 


0 


/YES 


0230 








/TAPE NOT OK 




0231 


0176 


0011 


NO TOK, 


CUR 






0232 


0177 


4742 




STC 


X2*5 


/CLEAR META EXIT 


02 33 


02 00 


4203 




STC 


TPFLG 




0234 


0201 


6000 




JMP 


0 




0235 


02 02 


1520 


TPCHK. 


SRO 


I 




0236 


0203 


7777 


TPFLG. 


7777 


/OK IF ONE 


0237 


0204 


0220 




XSK 


I 0 


/OK 


0240 


0205 


6000 




JMP 


0 


/NOT OK 


0241 












/MONITOR COMMAND 


02 42 












/CHECK 


02 43 


0206 


0603 


CHKMC, 


LIF 


3 




0244 


0207 


6255 




JMP 


CHKMC3 




0245 


0210 


6611 


DELMC, 


JMP 


euw8 




0246 


0211 


6152 




JMP 


Kl 




0247 


0212 


7042 




JMP 


CI 




02 50 


0213 


0000 


KT4, 


0 






02t>l 


0214 


2167 


LOKATE, 


ADD 


PI 


/LOCATE REQUEST 


0252 


0215 


1040 




ST A 






0253 


0216 


0213 




KT4 






0254 


0217 


4234 




STC 


M4 




0255 












/DELETE REST OF 


0256 












/MONITOR COMMAND 


02157 


0220 


6611 




JMP 


BUWB 


/DEL 1 CHAR 


0260 












/FROM WB 


02 61 


0221 


6152 




JMP 


Kl 


/DELETE UNTIL DONE 


0262 


0222 


0011 




CLR 






0263 


0223 


2447 




ADD 


CURLN 




0264 


0224 


0017 




COM 






0265 


0225 


1200 




LAM 






0266 


0226 


0213 




KT4 






0267 


0227 


6202 




JMP 


TPCHK 


/CHK TAPE STATUS 


0270 


0 230 


7675 




JMP 


S4 


/NOT OK 


02 71 


02 31 


04 72 




L2E 


I 


/OK 


0272 


0232 


7711 




JMP 


L4 




0273 


0233 


1020 




LDA 


I 




0274 


0234 


0000 


M4. 


0 




/REQO LINE 


02 75 


0235 


0017 




COM 






0276 


0236 


4242 




STC 


.♦4 





0277 


\0C.\3 f 


00 11 




CLR 








02 40 


24 51 




ADO 


MAXLN 






02 41 


1 ^ 501 

JLC £.]0 




LAM 


I 




03 02 


02 42 


0017 




0017 


/rwFTK MAy 
' u nc ui\ n « A 


03 03 


02 43 


10 00 




LDA 






0304 




04 51 




MAXLN 




03 055 


02 45 


04 72 




L2£ 


I 




03 06 


0246 


42 34 




STC 


M4 




10010/ 


10 1 *i / 


7711 




JMP 


L4 
















/I nr AT F run 

/L Utf AIL r n U 


0311 












/r un o Arc 


03 12 


02 50 


1 0( M Dl 
lie) 


OA 


IDA 






ic; o J. o 


0251 


1 547 




LNSPER 




wo l*t 




V>1 >^/S 




ADD 


MINUSl 






0253 


0450 




AHE 






03 16 


02 54 


62 57 




JMP 


F4*2 




0317 












/FWD LN 


03 20 


02 55 


0011 


F4 1 


CLR 






0321 


0256 


2167 




ADD 


PI 




0322 


02 57 


42 13 




STC 


KT4 




0323 


02 60 


00 50 




SET 


10 




0324 


0261 


0203 




TPFLG 


/TAPE STATUS 


0325 


0262 


6267 




JMP 


H4 




03 26 


02 63 


1000 




LDA 






0327 


0264 


0010 




10 






0330 


0265 


4203 




STC 


TPFLG 




0331 


0266 


7042 




JMP 


CI 


/GO DISPLAY 


0332 












/SLIDE FWD 


0333 


0267 


0053 


H4 ( 


SET 


13 




0334 


0270 


0000 




0 






033b 


0271 


64 46 




JMP 


A3 


/IS MAXLN=CURLN ? 


0336 


0272 


6013 




JMP 


13 


/YES RTN 


0337 


0273 


6474 




JMP 


CBTO m 


/NO TRANSFER 1 


0340 












/CHAR FROM CB TO WB 


0341 


0274 


6300 




JMP 


J4 


/RTN HERE IF NON CR 


03 42 


02 75 


65 02 




JMP 


EOLFIX 




0343 


02 76 


1140 




ADM 






0344 


0277 


0213 




KT4 






034b 


0300 


6433 


J4 1 


JMP 


C8MT 




03 46 


03 01 


6352 




JMP 


CHKWBF 




0347 


0302 


6372 




JMP 


WBFULL 




03 50 


0303 


10 00 




LDA 






03 51 


03 04 


02 13 




KT4 






03b2 


0305 


04 50 




AZE 






0353 


0306 


6271 




JMP 


H4 + 2 




0354 


0307 


6013 




JMP 


13 




03 5t> 












/PLAYGRNO FULL 


03 56 


0310 


00 57 


PLAFUL. 


SET 


17 




0357 


0311 


00 00 




0 






0360 


0312 


6446 




JMP 


A3 


/MAXLN=CURLN ? 


0361 


0313 


6017 




JMP 


17 


/YES 


0362 


0314 


6622 




JMP 


B6WRC 


/WRITE IT OUT 


0363 


0315 


2705 




ADD 


BBTBLK 


/AC IS 2ER0 ON 


0364 


0316 


4461 




STC 


F3 




0365 


0317 


2167 




ADD 


PI 




0366 


0320 


4351 




STC 


PLAFLG 




0367 


0321 


0054 




SET 


14 




0370 


0322 


0002 




2 






0371 


0323 


1324 


R3. 


LDH 


I 4 




03 72 


0324 


1420 




SHD 


I 




0373 


0325 


0000 




EOFl 




0374 


0326 


6334 




JMP 


S3 




03 75 


0327 


13 62 




STH 


I 2 





{Till A 


0 3 30 


6433 




JMP 


CBMT 


0377 


03 31 


6352 




JMP 


CHKWBF 


0 4 00 


0352 


00 16 




NOP 




04 01 


03 33 


6323 




JMP 


R3 


0402 


0334 


1362 


S3, 


STH 


1 2 


04 03 


03 35 


66 35 




JMP 


WBWRC 


0404 


0336 


6671 




JMP 


88FWD 


04 05 


03 37 


0042 




SET 


2 


0406 


0340 


0014 




14 




0407 


03 41 


24 54 




ADD 


MA XBLK 


0410 


0342 


4770 




STC 


CURBLK 


0411 


03 43 


4351 




STC 


PLAFLG 


0 412 


034 4 


6 456 




JMP 


F3-3 


0413 


03 45 


1020 


T3, 


LDA 


I 


0 414 


0346 


0700 




RDC 


WAUNIT 


04 15 


03 47 


66 50 




JMP 


MB RDC 


0416 


0350 


6017 




JHP 


17 




0351 


0000 


PLAF LG 1 


0 




04 20 












0421 












0422 


0352 


0055 


CHKWBF, 


SET 


15 


0423 


0353 


0000 




0 




04 24 


0354 


0220 




XSK 


! 0 


04 25 


03 55 


10 20 




LOA 


I 


04 26 


03 56 


73 77 




H8IT+CB-1 


0427 




1440 




SAE 




04 30 




01(71 on 




2 




04 31 


0361 


6000 




JMP 


0 


0432 


0362 


6635 




JMP 


WBWRC 


V5*} <io 


0363 


6671 




JMP 


BBFWD 


0434 


0364 


6176 




JMP 


NOTOK 


04 35 


03 65 


00 62 




SET 


I 2 


04 36 


0366 


till 




MBIT 


♦WB-l 


04 37 


03 67 


64 46 




JMP 


A3 


0440 


0370 


4770 




STC 


CURBLK 


04 41 


03 71 


6015 


AAA4S2, 


JMP 


15 


04 42 










04 43 












04 44 


03 72 


0055 


WBFULL# 


SET 


15 


0445 


03 73 


mm 




0 




0446 


0374 


1020 




LOA 


I 


0447 


0375 


IZll 




*400 




0450 


0376 


2026 




ADO 


CURPT2 


0451 


0377 


4026 




STC 


CURPT2 


0452 


0400 


2375 




ADD 


.-3 


04 53 


04 01 


2003 




ADD 


3 


0454 


0402 


4003 




STC 


3 


0455 


0403 


2447 




ADD 


CURUN 


0456 


0404 


1045 




STA 


5 


04 57 


04 05 


0225 




XSK 


I 5 


04 60 












0461 


0406 


0076 




SET 


I 16 


04 62 


0407 


2777 




W8=l 




0463 


0410 


miA 




SET 


I 14 


0464 


0411 


2377 




BB-1 




04 65 


04 12 


00 72 




SET 


I 12 


0466 


0413 


7377 




-400 


0467 


0414 


10 36 




LOA 


I 16 


0470 


0415 


1074 




STA 


I 14 


04 71 


0416 


0232 




XSK 


I 12 


0472 


0417 


6414 




JMP 




04 73 


0420 


1000 




LDA 




0474 


0421 


0005 




5 





/NOTE 



/MS INPUT ROUTINES 
/CHK WB FULL 
/RTN JMP 
/TO P*l 
/RTN TO P+2 



/IF WB IS NOT FULL 
/DO STRING SLIDE 

/TAPE NOT OK 



/WA FULL 



/WB FULL FIX 
/BPL AND BB 



/WB TO BB 



047!? 


0422 


1460 




SAE I 


/IS CNTRL TABLE 


04 /6 


0423 


23 71 




E6+2000 


/FULL ? 


iJ477 


0424 


60 15 




JMP 15 






tM25 


1020 




LOA I 


/YES 


0501 


0426 


6176 




JMP NOTOK 


/MAKE TAPE ALWAYS 


0502 


i3427 


4523 




STC TPSTAT 


/NOT OK 


0503 


04 30 


00 65 




SET I 5 


/TO START 


0504 


0431 


2243 




06+2000 


/OF CNTRL TABLE 


0505 


0432 


6015 




JMP 15 




05 06 










/CHK CB EMPTY 


0507 


0433 


0055 


CBMT, 


SET 15 




0510 


0434 


0000 




0 




0511 


0435 


1000 




LDA 


/BETA 4 


0512 


0436 


0004 




4 


/IS CB PTR 


0513 


0437 


0450 




Ml 




0514 


0440 


60 00 




JMP 0 




0515 


0441 


6707 




JMP CBFWD 


/CB IS EMPTY 


0516 


04 42 


6715 




JMP CBRDC 




0517 


0443 


0064 




SET I 4 




0520 


0444 


7377 




HBIT+CB»1 




0521 


0445 


6015 




JMP 15 




0522 










/CHK CONTINUATION 


0523 


0446 


1020 


A3, 


LDA i 




0524 


04 47 


mm 


CURLN. 


0 




0525 


0450 


1460 




SAE I 




0526 


0451 


0000 


MAXLN. 


0 




0527 


04 52 


02 20 




XSK I 0 




0530 


0453 


1020 




LDA I 




0531 


04 54 


0000 


MAXBLKi 


0 


/BIGGEST USED 


0532 










/IN WA 


0533 


0455 


60 00 




JMP 0 




0534 










/FIX BNS 


0535 


0456 


0055 




SET 15 




0536 


0457 


0000 




0 




0537 


0460 


1020 




LDA I 




0540 


0461 


0000 


F3, 


0 


/BQBN SAVED 


0541 


0462 


1440 




SAE 




0542 


0463 


0705 




BBTBLK 




0543 


0464 


6466 




JMP ,*2 




0544 


04 65 


6541 




JMP V3-4 




0545 


0466 


1040 




STA 




0546 


0467 


0705 




BBTBLK 




0547 


04 70 


4664 




STC WBTBLK 




0550 


04 71 


66 77 




JMP BBROC 




0551 


0472 


2705 




ADO BBTBLK 




0552 


0473 


6534 




JMP V3-11 


/ROC CQ 


0553 










/CB TO WB 


0554 


04 74 


1324 


CBTOWB , 


IDH I 4 




0555 


0475 


1362 




STH I 2 




0556 


0476 


14 20 




SHO I 




0557 


0477 


4300 




CRl 




0560 


0500 


0220 




XSK I 0 




0561 


0501 


6000 




JMP 0 




0562 










/EOL FIXES 


05 63 


0502 


1020 


EOLFIX, 


LOA I 




0564 


0503 


0001 




1 




0565 


0504 


2447 




ADD CURLN 




0566 


05 05 


4447 




STC CURLN 




0567 


0506 


0043 




SET 3 




0570 


0507 


0002 




2 




0571 


0510 


2156 




ADD MINUSl 




0572 


0511 


6000 




JMP 0 




0573 










/MAKE TAPE OK 





0512 


00 5 5 


L3 , 


SET 15 


05 75 


05 13 


00 00 




0 


0576 


0514 


00 4 4 




St T 4 


rxc; 7 7 


-> 1 3 


00 02 




2 


0600 


0516 


1020 




LOA I 


06 i51 


051 7 


00 00 




EOF 


06 02 


0520 


13 6 4 




STH I 4 


06 03 


05 21 


1020 




LOA I 


86 04 


05 22 


77 77 




77 77 


06 05 


0523 


42 03 


TP ST AT ) 


STC TPFLG 


06 06 










vOV) / 


05 24 


24 4 7 




ADD CURLN 


Dl A 1 C( 


0525 


10 4 5 




ST A 5 


01 A 1 i 
luO 11 


05 26 


10 20 




LD A 1 


06 12 


05 27 


07 24 


WH # 


WHC I WAUNIT 


06 13 


05 30 


66 35 




JMP WBWRC 


06 14 


05 31 


2705 




ADD B8TBLK 


06 15 


053 2 


1060 




ST A I 


0 616 


0 53 3 


n 'A rx (A 


C n T ti 1 w 

SPTBLK t 


0 


061 7 


0534 


1620 




BSE I 


0620 


0535 


2000 




2000 


0621 


0536 


4 723 




STC CBTBLK 


06 2 ie? 


05 37 


0 / 0 / 




JMP CBFMD 


06 23 


05 4 0 


6715 




JMP CBRDC 




05 41 


1020 




LDA I 


06 25 


05 42 


04 00 


P4 00 I 


40 0 


06 26 


0543 


2002 




ADD 2 


iOO £ / 


05 44 


40 04 




STC 4 






1020 


V3 , 


LOA I 


06 31 


0546 


67 7 7 




HB IT+WB-1 


06 3 2 


05 47 


4171 




STC PLACTR 


0633 


0550 


6367 




JhP CHKWBF+15 


0634 










06 35 


05 51 


00 55 


CHKW BE 1 


SE T 15 


06 36 


0552 


0000 




0 


06 37 


0553 


1020 




LOA I 


06 40 


05 54 


67 77 




H8IT*WB-1 


06 41 


05 55 


14 40 




SAE 


0642 


0556 


00 02 




2 


06 43 


0557 


60 00 




JMP 0 


06 44 


05 60 


6622 




JMP 6BWRC 


06 45 


0561 


10 20 




LDA I 


0 6 4 6 


0562 


7776 




-1 


0647 


0563 


6673 




JMP 8BBWD 






6 6 7 7 




JMP B8RDC 


0651 


0565 


2717 




ADD CBROC+2 


0652 


0566 


6650 




JMP WBRDC 


06 53 


0567 


0062 




SET I 2 


06 54 


05 70 


73 77 




HBIT*CB-1 


0655 


0571 


2005 




ADO 5 


0656 


0572 


1460 




SAE I 


0657 


0573 


2243 




06 4-2000 


0660 


0574 


2156 




ADO MINUSl 


0661 


0575 


4005 




STC 5 


0662 


0576 


2542 




ADD P400 


0663 


05 77 


2025 




ADD TOPPTR 


0664 


0600 


4025 




STC TOPPTR 


06 65 


06 01 


2542 




ADD P4 00 


0666 


0602 


2026 




ADO CURPT2 


0667 


0603 


4026 




STC CURPT2 


0670 


0604 


6367 




JMP CHKWBF+15 


0671 










0672 


0605 


1020 


BUCBWB. 


LDA I 



/THIS LOCATION CHANGED TO JMP NOTOK 
/WHEN TAPE NOT OK 



/DIAL POST VERSION TWO PATCH 2/19/70 



/CHK MB EMPTY 



/RTN WITH -0 IN AC 



/CNTRL TABLE NOT MT 



/LOWER PSA.PFA 



067>5 


0606 


3777 




-HBIT 


0674 


0607 


2004 




ADD 4 


067S 


0610 


4004 




STC 4 


0676 


0611 


1020 


dU^B f 


LDA I 


0677 


0612 


3777 




-HBI T 


0700 


0613 


2002 




ADD 2 




0614 


4002 




STC 2 


0702 


0615 


1302 




LDH 2 


070s5 


0616 


1420 




SNO I 


07 04 


0617 


43 00 




CRl 


0705 


0620 


0220 




XSK I 0 


07 06 


0621 


6000 




JMP 0 


0707 










0710 










0711 


0622 


1000 


BBMRCi 


LDA 


0712 


0623 


0705 




B8TBLK 


071.5 


0624 


4633 




STC ,*7 


0714 


0625 


0603 




LI F 3 


0715 


0626 


0006 




DJR 


0716 


0627 


1020 




LOA ! 


0717 


06 30 


6632 




JMP 


0720 


0631 


7620 




JMP G0( 


0721 


0632 


0/04 




WRC WAUNIT 


0722 


0633 


0000 




0 


0723 


0634 


6000 




JMP 0 


0724 


0635 


0051 


WBV^RCi 


SET U 


0725 


0636 


0000 




0 


0726 


0637 


1020 




LDA I 


0727 


0640 


0001 




1 


0730 


0641 


1440 




SAE 


0731 


0642 


0351 




PLAFLG 


0732 


0643 


6622 




JMP B8WRC 


0733 


0644 


0040 




SET 0 


0734 


0645 


0011 




11 


0735 


0646 


1020 




LDA 1 


0736 


0647 


07 04 


WT, 


WRC WAUNIT 


0737 


0650 


4663 


W8R0C, 


STC .+13 


0740 










0741 


06 51 


1020 




LOA 1 


0742 


0652 


1001 




1001 


0743 


06 53 


1140 




ADM 


0744 


0654 


06 64 




,*10 


07 45 


06 55 


4454 




STC MAX8LK 


0746 


0656 


0603 




LIF 3 


0747 


0657 


00 06 




DJR 


0750 


0660 


1020 




LDA I 


0751 


0661 


6663 




JMP 


0752 


0662 


7620 




JMP GDI 


0753 


0663 


0000 




0 


0754 


0664 


0000 


MBT8LK. 


0 


07 55 


06 65 


1000 




LOA 


0756 


0666 


0705 




BBTBLK 


0757 


0667 


4664 




STC .«3 


0760 


0670 


6000 


AAA7S2. 


JMP 0 


0761 










07 62 


0671 


10 20 


BBFWD, 


LDA I 


0763 


0672 


0001 




1 


07 64 










07 65 










0766 


0673 


1140 


BBBWO. 


ADM 


0767 


0674 


0705 




. + 11 


07 70 


0675 


4664 




STC WBT8LK 


0771 


0676 


60 00 




JMP 0 



/STRING SLIDES 
/WB FWO OR BUD 



/SOMETIMES COMES HERE 
/WITH ROC IN AC 
/AOO 1 TO 
/M8LK AND TBLK 



/WA TBLK 



/TAPE INSTRUCTION 
/MBLK6\TBLK 



/8B ROC FWD OR BWD 



/SOMETIMES COMES HERE 
/WITH -1 IN AC 

/ADD +0R- 1 TO TBLK 



0677 
0700 
0701 
0702 
0 7 03 
0704 
070!? 
0706 



0603 
0006 
1020 
6704 
7620 
0700 

mm 

6000 



BBRDC, LIF 
OJR 
LDA I 
JMP 
JMP 
RDC 

BBTBLK, 0 

JMP 0 



.♦2 

GOODY 
WAUNIT 



0707 1020 CBFWDi 
0710 0001 



LDA I 
1 



0711 1140 CBBWD» 

0712 0723 

0713 4733 

0714 6000 



ADM 

CBT8LK 
STC TBLKCB 
JMP 0 



0772 
0773 
07 74 
07 75 
0776 
0777 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1010 
1011 
1012 
1013 

1014 071b 0603 

1015 0716 0006 

1016 0717 1020 

1017 0720 6722 

1020 0721 7620 

1021 0722 0700 

1022 0723 0000 

1023 0724 6000 
1024 

1025 0725 0603 

1026 0726 0006 

1027 0727 1020 

1030 0730 6732 

1031 0731 7620 

1032 0732 0704 

1033 0733 0000 

1034 0734 6000 

1035 0735 0041 

1036 0736 0300 

1037 0737 6611 

1040 0740 6152 

1041 0741 1520 

1042 0742 0000 

1043 0743 6747 

1044 0744 1020 

1045 0745 7777 

1046 0746 4742 

1047 0747 0002 
1050 

10 51 47 50 6212 

1052 4751 4422 

1053 4752 0567 

1054 4753 6212 

1055 4754 4421 

1056 4755 0563 

1057 4756 6141 
10 60 

1061 0757 0600 

1062 0760 7010 

1063 0761 1000 

1064 0762 0001 

1065 0763 4767 

1066 0764 0641 

1067 0765 0603 
1070 0766 0006 



CBRDC» LIF 3 
DJR 
LDA I 

JMP ,♦2 
JMP GOODY 
ROC WAUNIT 
CBTBLK, 0 

JMP 0 

CBWRC, LIF 3 

DJR 
LDA I 

JMP ,+2 
JMP GOODY 
WRC WAUNIT 

TBLKCB, 0 

JMP 0 

X2. SET 1 

0 

JMP BUWB 
JMP Kl 
SRO I 

0 

JMP WP 
LDA I 
-0 

STC .-4 

WP, POP 

PMODE 

CIF 10 

JMS I WRITE 

01 NBUF 

CiF 10 

JMS I READ 

WRL2 

LI NC 

LMODE 

LIF 0 

JMP OUTPTR 
XI T2, LDA 

1 

STC RJMP 
LDF 1 
LIF 3 
OJR 



/CB FIX 

/SOMETIMES COMES HERE 
/WITH »1 IN AC 

/FWD 



/MBLK7\TBLK 
/CB WRC BWO 



/MBLK7\T8LK 
/MC EXIT 



1071 
1272 
1073 
1^-74 
107b 
li576 
1077 
1100 
1101 

11 a2 

1103 

1104 

1105 

1106 

1107 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1140 

1141 

1142 

11 43 

1144 

1145 

1146 

1147 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 



07 67 00 00 
0770 6370 



0771 
0772 

07 73 



07 75 
0776 



0777 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1010 
1011 
1012 
1013 



1014 
1015 
1016 
1017 

10 20 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1040 
1041 
1042 
1043 
1044 



1020 
0212 

0500 



4 77 4 60 4 6 



0641 
6000 



1020 
3777 
1140 
0010 
1460 
0000 
6000 
0220 
1310 
1460 
0043 
6000 
75 76 



0047 
00 00 
1020 
0001 
24 47 
4447 
2167 
24 51 
4451 
6110 
1000 
04 51 
0470 
7037 
1020 
1311 
2770 
0451 
6007 
2167 
4146 
6117 
0066 
7607 
7531 



RJMP, 

CUR8LK . 

/ 

/ 

/ 

/ 

INITLF . 



/ 

/ 

BUIC , 



05, 



/ 
/ 
/ 
/ 
/ 
/ 

CRSET, 



0 

6\WA 



LDA I 

212 

lOB 

PMOOE 

TLS 

LMODE 

LOF 

JMP 



LDA I 
-HBI T 
ADM 
10 

SAE I 

0 

JMP 

XSK I 

LOH 

SAE I 

CR 

JMP 

JMP 



10 



0 

BYALN 



EOBERR , 



CI, 



SET 7 
0 

LDA I 
1 

ADD CURLN 
STC CURLN 
AOD PI 
ADD MAXLN 
STC MAXLN 
JMP CHKBUF 
LDA 
MA XLN 
A2E I 

JMP EOBERR 
LDA I 

2000«MAEND 

ADD 
ARC 
JMP 7 
AOD 
STC 
JMP 

SET I 6 
-M AXNUM 
JMP DISPLA 



/UPDATE CR 
/ARGUMENTS 



CUR8LK 



PI 

EOBWRD 
Dl 



/GO DISPLAY 
/CALLS TO 
/ KEYBRO INPUT 
/INTERPRETIVE SH 



Il7id 


1045 


0600 




LIE 


0 


1171 


10 46 


7174 




JMP 


A88 


1172 


1047 


7531 


ALTSET, 


JMP 


OISPLA 


1173 


1050 


0600 




LIE 


0 


1174 


1051 


7262 




JMP 


ALTR£Q*2 


1175 


10b2 


7531 


EDSET, 


JMP 


OISPLA 


1176 


1053 


06 00 




LIE 


0 


1177 


1054 


7312 




JMP 


CHKED+2 


izm 


1055 


7531 


SUBSET. 


JMP 


01 SPLA 


1201 


10 56 


0600 




LIE 


0 


1202 


1057 


7322 




JMP 


SUBCHR+2 


1203 


1060 


4022 




STC 


TEMPI 


12 654 


1061 


61 01 




JMP 


TBTOWB 


1205 


1062 


0226 




XSK 


I 6 


1206 


106J 


0456 




SKP 




1207 


1064 


4022 


REGGHR , 


STC 


TEMPI 


1210 


1065 


7256 




JMP 


CHKPOS 


1211 


1066 


7071 




JHP 


, + 3 


1212 


1067 


06 00 




LIE 


0 


1213 


1070 


/572 




JMP 


CHKCNT 


1214 


1071 


7202 




JHP 


INSERT 


1215 


1072 


1000 


P1000, 


LOA 




1216 


1073 


0022 




TEMPI 


1217 


1074 


6107 




JMP 


ACTOWB 


1220 


1075 


7761 




JMP 


CHKNOK 


1221 


1076 


7256 




JMP 


CHKPOS 


1222 


1077 


7102 




JMP 


UP6 


12 23 


1100 


1323 


UP3, 


LDH 


I 3 


1224 












1225 


1101 


7044 




JMP 


Cl + 2 


12 26 


1102 


02 26 


UP6# 


XSK 


I 6 


1227 


1103 


70 44 




JMP 


Cl*2 


1230 


1104 


7160 




JMP 


ACR2 


1231 


11 05 


1327 


CRLOW, 


LOH 


I 7 


12 32 


1106 


14 20 




SHD 


I 


12 33 


1107 


3700 




LEI 




1234 


1110 


6206 




JMP 


CHKMC 


12 35 


1111 


60 00 




JMP 


0 


12 36 


11 12 


73 51 


RUB, 


JMP 


ROACHR 


1237 


1113 


77 61 




JMP 


CHKNOK 


1240 


1114 


1000 




LUA 




1241 


1115 


0006 




6 




1242 


1116 


0450 




AHE 




1243 


1117 


70 44 




JMP 


Cl*2 


1244 


1120 


3251 




ADO 


MHBI 


12 45 


11 21 


20 26 




ADO 


CURPT2 


1246 


1122 


4026 




STC 


CURPT2 


1247 


1123 


7112 




JMP 


HUB 


12 50 


1124 


4010 


COMRTN, 


STC 


10 


1251 


1125 


6101 




JMP 


TBTOWB 


1252 


1126 


0230 




XSK 


1 10 


12 53 


1127 


7125 




JMP 


r-2 


12 54 


1130 


1020 




LOA 


I 


1255 


1131 


0057 




KOM 




1256 


1132 


06 40 




LDE 


0 


1257 


1133 


1040 




ST A 




1260 


1134 


3374 




2000+COMElG 


1261 


1135 


0641 




LDE 


1 


1262 


1136 


7064 




JMP 


REGCHR 


1263 


1137 


6101 


CMARTN, 


JMP 


TBTOWB 


1264 


1140 


7102 




JMP 


UP6 


1265 


1141 


7246 


ACR, 


JMP 


CHKENO 


1266 


1142 


7160 




JMP 


ACR2 



/INSERT A CHAR 



/PTR TO 1ST CNR 
/ON CUR LN 

/CHAR CTR CUR LN 
/CR ON CUR LN 

/RUB OUT 1 CHAR 



/HERE EOR CR 



1267 


1143 


4007 




STC 


7 


1270 


1144 


1020 




LDA 


I 


1271 


1145 


0043 




CR 




1272 


1146 


1427 




SHD 


I 7 


1273 


1147 


7044 




JMP 


01*2 


1274 


1150 


1427 




SHD 


I 7 


127b 


1151 


0456 




SKP 




1276 


1152 


7160 




JMP 


ACR2 


1277 


1153 


1000 




LOA 




1300 


1154 


00 07 




7 




1301 


1155 


7250 




JMP 


CHKENO* 


1302 


11 &6 


7160 




JMP 


ACR2 


1303 


1157 


7044 




JMP 


Cl*2 


1304 


1160 


1020 


ACR2, 


LOA 


I 


1305 


1161 


0043 




CR 




1306 


1162 


4022 




STC 


TEMPI 


1307 


1163 


7202 




JMP 


INSERT 


1310 


1164 


1000 




LOA 




1311 


1165 


0022 




TEMPI 


1312 


1166 


1362 




STH 


I 2 


1313 


1167 


7761 




JMP 


CHKNOK 


1314 


1170 


0047 




SET 


7 


1315 


1171 


0003 




3 




1316 


1172 


7256 




JMP 


CHKPOS 


1317 


1173 


7177 




JMP 


.*4 


1320 


1174 


74 47 




JMP 


SET6N3 


1321 


1175 


7014 


CRHI . 


JMP 


CRSET 


1322 


1176 


7044 




JMP 


Cl*2 


1323 


1177 


7447 




JMP 


SET6N3 


1324 


1200 


7105 




JMP 


CRLOW 


1325 


1201 


7175 




JMP 


CRHI 


1326 


1202 


0057 


INSERT, 


SET 


17 


1327 


1203 


0000 




0 




1330 


1204 


7246 




JMP 


CHKEND 


1331 


1205 


6017 




JMP 


17 


1332 


1206 


1120 




ADA 


I 


1333 


1207 


4000 




MBIT 


1334 


1210 


1440 




SAE 




1335 


1211 


0002 




2 




1336 


1212 


0456 




SKP 




1337 


1213 


6017 




JMP 


17 


1340 


1214 


1040 




ST A 




1341 


1215 


0012 




12 




1342 


1216 


4007 




STC 


7 


1343 


1217 


1332 




LDH 


I 12 


1344 


1220 


4023 




STC 


TEMP2 


1345 


1221 


1000 


MAKGAP, 


LDA 




1346 


1222 


0002 




2 




1347 


1223 


1440 




SAE 




1350 


1224 


0012 




12 




1351 


1225 


0456 




SKP 




1352 


1226 


7237 




JMP 


DUNGAP 


1353 


1227 


1332 




LDH 


I 12 


1354 


1230 


4024 




STC 


TEMP3 


1355 


1231 


2023 




ADD 


TEMP2 


1356 


1232 


1352 




STH 


12 


1357 


1233 


1000 




LOA 




1360 


1234 


0024 




TEMP 3 


1361 


1235 


4023 




STC 


TEMP2 


1362 


1236 


7221 




JMP 


MAKGAP 


1363 


1237 


1000 


OUNGAP 1 


» LDA 




1364 


1240 


0022 




TEMPI 


1365 


1241 


1367 




STH 


I 7 



/CR ABOVE 
/CUR LN 



/INSERT CHAR 
/OVER CURSOR 



13 66 


12 42 


1000 




LDA 


1367 


1243 


0023 




ti:mp2 


li70 


1244 


4022 




STC TEMPI 


1371 


1245 


6017 




JMP 17 


1372 


1246 


1000 


CHKEND# 


LDA 


1373 


1247 


0026 




CURPT2 


1374 


1250 


1120 




ADA I 


13 75 


1251 


37 77 


MH8IT, 


-MBIT 


1376 


1252 


1440 




SAE 


1377 


1253 


00 02 




2 


1400 


1254 


0220 




XSK I 0 


14 01 


1255 


6000 




JMP 0 


lAd'd 


1256 


1000 


CHKPOS, 


LDA 


1403 


12 57 


0026 




CURPT2 


1404 


1260 


0241 




ROL 1 


1405 


1261 


0017 




COM 


1406 


1262 


4023 




STC TEMP2 


1407 


1263 


1000 




LDA 


1410 


1264 


0003 




3 


1411 


1265 


0241 




ROL 1 


1412 


1266 


2023 




ADD TEMP2 


1413 


1267 


0471 




APO I 


14 14 


1270 


0220 




XSK I 0 


1415 


1271 


60 00 




JMP 0 


1416 


12 72 


7246 


RORIT, 


JMP CHKENO 


1417 


1273 


7044 




JMP Cl*2 


14 20 


12 74 


1020 




LDA I 


1421 


1275 


7306 




JMP DUNRIT 


1422 


1276 


5366 




STC OK-1 


1423 


1277 


1020 




LDA I 


1424 


1300 


73 61 




JMP EXTRUB 


1425 


1301 


5354 




STC R0ACHR*3 


1426 


1302 


3370 




ADO 0K*1 


1427 


1303 


5364 




STC OK -3 


1430 


1304 


7351 




JMP ROACHR 


1431 


1305 


7304 




JMP ,-1 


1^32 


13 06 


73 12 


OUNRIT , 


JMP FIXUP 


1433 


1307 


7351 




JMP roachR 


1434 


1310 


7761 




JMP CHKNOK 


1435 


1311 


7044 




JMP Cl*2 


14 36 


1312 


1020 


F IXUP* 


LDA I 


1437 


1313 


7044 




JMP Cl*2 


1440 


1314 


5366 




STC 0K»1 


1441 


1315 


3464 




ADD RE SET* 4 


1442 


1316 


5364 




STC OK-3 


1443 


1317 


3401 




ADD N0TACR*2 


1444 


1320 


5354 




STC ROACHR+3 


1445 


1321 


60 00 




JMP 0 


1446 


1322 


7246 


ROLEFi 


JMP CHKEND 


1447 


1323 


4026 




STC CURPT2 


1450 


1324 


1020 




LDA I 


1451 


1325 


0026 




CURPT2 


1452 


1326 


5362 




STC OK-5 


1453 


1327 


1020 




LDA I 


1454 


1330 


7343 




JMP DUNLEF 


1455 


1331 


5366 




STC OK-1 


14 56 


13 32 


1020 




LOA I 


1457 


1333 


7361 




JMP EXTRUB 


1460 


1334 


5354 




STC ROACHR+3 


1461 


1335 


7351 


OOLEF. 


JMP ROACHR 


1462 


1336 


1020 




LDA 1 


1463 


1337 


3777 




-HBI T 


1464 


1340 


2026 




ADD CURPT2 



/IS CURSOR 
/FULL RIGHT ? 



/NO 
/YES 

/IS CURSOR 
/ON CUR LN ? 



/NO 
/YES 

/RUB OUT TO 
/RIGHT OF CURSOR 



/RUB OUT TO 
/LEFT OF CURSOR 



1 4 6 


1.341 


4026 


14 66 


1342 


7335 


1467 


1343 


10 20 


14 70 


13 44 


0002 


1471 


1345 


5362 


1472 


1346 


7312 


1473 


1347 


7761 


14 74 


1350 


70 44 


1475 


1351 


1000 


14 76 


1352 


0000 


1477 


1353 


5441 


1300 


1354 


1020 


1501 


1355 


0001 


1502 


1356 


1440 


150*3 


1357 


0447 


15 04 


13 60 


73 67 


1505 


1361 


1000 


1506 


1362 


00 02 


1507 


1363 


1440 


1510 


1364 


0025 


1511 


1365 


0456 


1512 


1366 


70 4 4 


1513 


1367 


0052 


1514 


13/0 


0026 


1515 


1371 


7246 


15 16 


1372 


4012 


I5l7 


1373 


1312 


1520 


1374 


14 20 


1521 


1375 


4300 


1522 


1376 


7502 


1523 


1377 


7246 


1524 


14 00 


7414 


15 25 


1401 


1020 


1526 


1402 


3777 


1527 


1403 


2012 


1530 


1404 


4001 


1531 


1405 


1332 


1532 


1406 


1361 


1533 


1407 


1000 


1534 


1410 


0001 


1535 


1411 


1440 


1536 


1412 


00 02 


1537 


1413 


7405 


1540 


1414 


6551 


1541 


1415 


1020 


1542 


1416 


7776 


1543 


1417 


6170 


1544 


1420 


4171 


1545 


1421 


6611 


15 46 


1422 


0016 


1547 


1423 


7447 


1550 


1424 


1020 


1551 


1425 


3777 


I5b2 


1426 


2026 


lb5i 


1427 


1040 


1554 


1430 


0007 


1555 


1431 


7250 


1556 


1432 


7441 


1557 


1433 


1307 


1560 


1434 


1460 


1561 


1435 


0043 


1562 


1436 


7441 


1563 


1437 


1427 





STC 


CURPT2 




JMP 


DOLEF 


DUNLEr 1 


LDA 

2 


I 




STC 


OK-5 




JMP 


FI XUP 




JMP 


CHKNOK 




JMP 


CI +2 


ROACHR » 


LDA 

0 






STC 


XITRO 




LOA 


I 




1 






SAE 






CURLN 




JMP 


OK 


EXTRUB. 


LDA 
2 

SAE 






TOPPTR 




SKP 






JMP 


Cl+2 


OK, 


SET 


12 




CURPT2 




JMP 


CHKENO 




STC 


12 




LDH 


12 




SHD 


I 




CRl 





NOADJ, JMP LASTCR 
NQTACR, JMP CHKEND 





JMP 


ENDRUB 




LDA 


I 




-HBI T 




ADD 


12 




STC 


1 


BWDCHR, 


LDH 


I 12 




STH 


I 1 




LDA 






1 






SAE 






2 






JMP 


8WDCHR 


ENDRUB * 


JMP 


CHKWBE 




LOA 


I 




-1 






JMP 


CHKPLA+2 




STC 


PLACTR 




JMP 


BUWB 


AN OP, 


NOP 






JMP 


SET6N3 




LDA 


I 




-MBIT 




ADD 


CURPT2 




STA 






7 






JMP 


CHKEND+2 




JMP 


XITRO 




LDH 


7 




SAE 


I 




CR 






JMP 


XI TRO 




SHD 


1 7 



/RUB OUT 1 CHAR 



Ib64 


1 440 


0456 


1363 


1441 


0000 


13 66 


14 42 


1000 


1567 


1443 


0007 


1570 


1444 


7250 


1571 


1445 


7441 


137^ 


1446 


7 5 5 4 


15 7 5 


14 47 


1000 


1574 


1450 


0000 


1575 


1451 


5501 


1576 


1452 


0050 


1577 


1453 


0002 


1600 


1454 


0061 


16i31 


1455 


0000 


1602 


1456 


1322 


1603 


1457 


0456 


16 04 


14 60 


0221 


1605 


1461 


1000 


1606 


1462 


0002 


1607 


1463 


1440 


16ia 


1464 


0025 


1611 


14 65 


0456 


1612 


14 66 


7471 


1613 


1467 


6611 


1614 


1470 


7460 


16 15 


14 71 


00 43 


1616 


1472 


0002 


1617 


1473 


0042 


1620 


1474 


0010 


1621 


1475 


1020 


1622 


1476 


7607 


16 23 


1477 


2001 


1624 


1500 


40 06 


1623 


15 01 


00 00 


1626 


1502 


0051 


1627 


1503 


0000 


1630 


1504 


1000 


1631 


1505 


1366 




1506 


1460 


1633 


1507 


7044 


1634 


1310 


7321 


16 35 


1511 


1000 


1636 


1512 


0012 


1637 


1513 


1440 


1640 


1514 


0002 


1641 


1515 


0456 


1642 


1516 


7521 


1643 


1517 


0600 


1644 


1520 


7372 


1645 


1521 


1020 


1646 


1522 


7776 


16 47 


15 23 


2447 


1650 


1524 


4447 


1651 


1525 


3522 


1652 


1326 


24 51 


1633 


1527 


4451 


1654 


1530 


6011 


16 55 






16 56 






1657 


1531 


0057 


1660 


1532 


0000 


1661 


1533 


0603 


1662 


1534 


7067 



SKP 
XITNO. 0 

IDA 
7 

JMP CHKEND+2 





JHP 


XITRO 




JMP 


ROACHR 


SE T6 N3 1 


LOA 






0 

SIC 


RTNSET 




SET 


10 




2 






SET 


I 1 




0 

LDH 


1 2 




SKP 




RESET, 


XSK 


I 1 




LOA 






2 






SAE 






TOPPTR 




SKP 






JMP 


.♦3 




JMP 


BUWB 




JMP 


RESET 




SET 


3 




2 






SET 


2 




10 






LOA 


I 




-HAXNUM 




ADD 


1 




STC 


6 


RTNSET , 


0 




LASTCR. 


SET 


11 




0 






LDA 












SAE 


I 




JHP 


01*2 




JMP 


NOCNT 




LOA 






12 






SAE 






2 






SKP 






JMP 


NOCNT 




LIT 


0 




JMP 


CHKCNT 


NOCNT, 


LOA 


I 




-1 






ADD 


CURLN 




STC 


CURLN 




ADD 


,»3 




ADD 


HAXLN 




STC 


MAXLN 




JMP 


11 


DISPLA. 


SET 


17 




0 






Lir 


3 




JMP 


KSAM7 



/DISPLAY 
/ONCE PER ENTRY 
/SAVE RTN JMP 
/SET INITIAL 
/SCOPE ARGUMENTS 



1663 


1535 


0643 


SAMARG, 


LDF 


3 




1664 


1536 


1040 




STA 






1665 


1537 


2627 




OLDSAM42000 




1666 


1540 


1040 




STA 






1667 


1541 


1547 




UNSPER 




1670 


1542 


0244 




ROL 


4 




1671 


1543 


1040 




STA 






1672 


15 44 


26 23 




MAXVC«2000 




1673 


1545 


0641 




LDF 


1 




1674 


15 46 


10 20 


B5 , 


IDA 


1 




167S 


1547 


0000 


LNSPER* 


0 






1676 


1550 


0017 




COM 






1677 


1551 


4014 




STC 


14 




1700 


1552 


2447 




ADD 


CURLN 




1701 


1553 


5612 




STC 


DISLN 




1702 


15 54 


00 50 




SET 


10 




1703 


1555 


0002 




2 






1704 


1556 


10 20 


00 WN* 


LDA 


I 




1705 


1557 


3536 




-06* 2- 40 00 




1706 


1560 


2002 




ADD 


2 




1707 


1561 


5004 




STC 


05 




1710 


1562 


00 04 




EST 




/ENABLE SPECIAL FCNS 


1711 


1563 


1310 


KGOf 


LDH 


10 




1712 


1564 


1420 




SHD 


I 




1713 


1565 


4300 




CRl 






1714 


1566 


7607 


KBUlLNi 


JMP 


BUlLN 


/BU LN TO BE 


1715 












/DISPLAYED BY 1 


1716 












/UNLESS AT FIRST 


1717 












/LN OF DISPLAY 


1720 


1567 


6777 




JMP 


BUIC 




1721 


1570 


7563 




JMP 


KGO 




1722 


1571 


6777 


OOBU, 


JMP 


BUIC 




1723 


15 72 


1310 




LDH 


10 




1724 


1573 


1460 




SAE 


I 




1725 


1574 


0043 




CR 






1726 


1575 


7571 




JMP 


DOBU 




1727 


1576 


1020 


BYALN. 


LDA 


I 




1730 


1577 


7776 




-1 






1731 


1600 


3612 




ADO 


DISLN 




17 32 


1601 


4022 


GOSCP. 


STC 


TEMPI 




1733 


1602 


2010 




ADD 


10 




1734 


1603 


4025 




STC 


TOPPTR 




1735 


1604 


2022 




ADO 


TEMPI 




1736 


1605 


0603 




LIF 


3 




1737 


1606 


6433 




JMP 


SCOPE 




1740 












/CR LOWER LN 


1741 


1607 


1020 


BUILN, 


LDA 


I 




1742 


1610 


7776 




-1 






17 43 


1611 


1160 




ADM 


I 


/BACK UP 


1744 


1612 


0000 


DISLN. 


0 




/LN FOR DISPLAY 


1745 


1613 


04 70 




AZE 


I 


/LN 1 7 


1746 


1614 


7601 




JMP 


GOSCP 


/YES 


1747 


1615 


0234 




XSK 


I 14 


/TOP LOGICAL LN ? 


1750 


1616 


6000 




JMP 


0 




1751 


1617 


7601 




JMP 


GOSCP 


/YES 


1752 












/BWD PAGE 


17 53 


16 20 


10 00 


Q4, 


LOA 






1754 


1621 


1547 




LNSPER 




1755 


1622 


2156 




ADD 


MINUSI 




17 56 


1623 


04 50 




AZE 






1757 


1624 


7627 




JMP 


84*2 




176ia 












/BWD LN 


1761 


1625 


0011 


B4, 


CLR 







17 62 


1 6 76 


2167 




Ann Pi 

M U U r X 




17 63 


1 A 97 
10 «/ 


AO 1 t 
*»6 10 




OIL K 1 ^ 




1764 


1 A "^a 
16 OlD 


A 9 mo 
0^ (9^ 




tu Q TO f*LI 

Jnr TPLHiS 




1 7 A t> 


1 A 1 
J. 0 0 i 


/ o o 0 




JM P . ♦ 2 




1 / OO 


16 32 


76 41 




Jnr an ua lu 




1 7 A7 


1 0 OO 


64 46 




JMP A3 




1 7 70 


1 A 

io o*t 


u7X £ 








1 / /I 










/ Onu D L i Uc. 


1 770 
JL / fC 


1 A "^i^ 


X 101010 


Kb WU i 


LDA 




A / / O 


1 A A 
XO O □ 


019 1 7 

fOC XO 




1^ T 4 




1 7 7 A 


XO O / 






Ac L 1 




1 7 7R 


1 A 

XO "10 


70 42 




IMP r 1 
jn r L X 




1 7 7 A 


1 A 4 1 
XO *t X 


1 ffl 9 Dl 


Dy n 5 1 n 
DKua L u i 


1 n A T 
LU A 1 




17 77 


1642 


0001 








2000 


16 43 


14 40 




«; AF 




20 01 


16 44 


04 47 




cu rl n 




20 0 2 


16 45 


764 7 




jfj{p , + 2 




2003 


16 46 


70 42 




JMR CI 




20 0 4 


1647 


6551 




IMP rUKURT 




2005 










/rwK PR riJi 1 


2006 


1650 


10 20 


UR TO PR , 


t HA I 




2007 


1651 


7377 




WR ! T+rR-1 

no i 1 ^ w D «L 




20 10 


1652 


14 40 




SA E 




2011 


1653 


0004 




4 




2012 


1654 


7661 




JMP E4 




e Kf 4. sj 


1655 


6725 




IMP PRUPr 




2014 


1656 


4004 




STC 4 


/7777 TO RFTA 4 


20 15 


16 57 


36 66 




inn Mr CI 

MU U 1Mb. 




2016 


16 60 


D ' X X 




IMP PRQUn 




2017 


16 61 


1302 


E4 * 


1 n u 9 

L -f n c 




2020 


16 62 


134 4 




Q T U 4 
Din *♦ 






1 A A 
XO 00 


A A OfC^ 
OO 109 










1 AA4 


7 A4 7 




IMP UQ TD no .1 

jnr WD 1 U LB ^x 






1 A 

XO 07 


1 01 901 

Xk) £10 




1 n A t 
LU A i 






1 A AA 
XO OD 


77 76 


rvL b X » 


_ 1 
• X 






1 A A 7 
XO O / 






Jnr tULr I A ♦< 






16 70 


1 1 4 01 

X X iO 




ADM 




'J £J1 D 7 


1 A 7 1 
i 0 / X 


(AO ^ T 

kj^ 1 0 




KT 4 




O CH Dl 


1 A 7 9 


ffl 4 c: d 
10 *» 9 10 




Ac t 




£iO OX 


1 A 7 1 
10 fO 


7A 41 
^O '♦1 




IM o ou nc 1 n 
Jnr oWUdLU 






4 A 7 A 

16 7^ 


70 4 2 




JM P CI 




20 v33 










/LOCATt TP NOT OK 


20 34 


16 75 


04 52 


54 t 


Lc L 


/ L AHKT ON LAn r 


2035 


1676 


6256 




JMP F4+1 


/YES 


CKl 00 


1 A 77 

10 / / 


0101 1 7 
1010 X / 




LUn 




2037 


1700 


4213 




STC KT4 




2040 


1701 


2523 




ADD TPSTAT 




20 41 


1702 


1460 




SAE I 




2042 


1703 


4203 




STC TPFLG 




2043 


1704 


76 35 




JMP KB WD 




2044 


1705 


6446 




JMP A3 


/MAXLN=CURLN ? 


2045 


17 06 


7710 




JMP ,♦2 


/YES 


2046 


1707 


7635 




JMP KBWD 




2047 


1710 


6512 




JMP L3 




2050 










/FIND REQUEST 


2051 










/IN CNlTRL BLK 


2052 


1711 


0011 


L4. 


CLR 




2053 


1712 


4705 




STC B8TBLK 


/SET WRONG BB . CB 


2054 


1713 


0065 




SET I 5 




2055 


1714 


2241 




D6=2+2000 




2056 


1715 


2167 




ADD PI 




2057 


1716 


4213 




STC KT4 




2060 


1717 


1005 




LDA 5 





21361 


1 / tic* 


4 4 4 7 




CTf rtJRI M 

O 1 U W w fA 1 1 


2fe3 62 


1 7 91 
X / & X 


1025 




LO A I 5 




17 99 


0017 




COM 


20 64 


1 7 


5 727 




STC .♦^ 


206 b 


1 7 9 d 


0011 




CLR 


2066 


1 7 PS 


22 34 




ADO M4 


CVQf 


17 26 


12 20 




LAM I 


QUI 701 


17 2 7 


0000 




0 


C W /I 


1730 


04 ^2 




LZE 


yoi 79 


17 31 


7715 




JMP L4't'4 


C Kl / O 


1732 


1020 


G4 » 


LD A I 


OCT 7a 


17 33 


31 24 




50 00+W A'»D6-: 


9 01 7 R 


1734 


2005 




ADD 5 




1735 


4461 




STC F3 


901 77 


1736 


6456 




JMP F3-3 


21 ^id 


17 37 


0062 




SET I 2 


21 01 


1740 


6777 




HB IT+WB-1 


21 02 


1741 


00 64 




SET I 4 


21 03 


17 42 


7377 




H81T+CB-1 


2104 


1743 


6260 




JMP F4*3 


2105 










2106 


1744 


0041 


T2, 


SET 1 


C 1 W r 


17 45 


0000 




0 




17 46 


66 11 




JMP BUWB 


2111 


1747 


6152 




JMP Kl 


•31 1 9 


17 50 


62 02 




JMP TPCHK 


9 117 
£ 11 0 


17 51 


77 53 




JMP ,♦2 


9114 
C 1 X *t 


1752 


6741 




JMP X2+4 


2115 


1753 


1020 




LDA I 


91 1 6 


1754 


7776 




7776 


91 1 7 
cx X / 


1755 


4213 




STC KT4 


2120 


1756 


6267 




JMP H4 


21 21 


1757 


6512 




JMP L3 


21 22 


1760 


67 44 




JMP X2*7 


21 23 


1761 


00 41 


CHKNOK 1 


. SET 1 


91 94 


17 62 


00 00 




0 


2125 


1763 


0047 




SET 7 


2126 


1764 


0003 




3 


2127 


1765 


1327 




LOH I 7 


2130 


17 66 


14 60 




SAE I 


2131 


1767 


00 37 




LF 


2132 


1770 


6176 




JMP NOTOK 


2133 


1771 


7256 




JMP CHKPOS 


2134 


1772 


6001 




JMP 1 


2135 


1773 


6176 




JMP NOTOK 


2136 


1774 


6001 




JMP 1 


2137 






/ 




2140 






/ 


, JMP IN] 


2141 


1775 


6771 


RESTRT 


2142 


1776 


70 44 




JMP 01^ 


2143 






/ 




2144 






/ 




2145 






/ 




2146 






/ 




2147 








EJECT 



1*2000 



/TP FIX 



/FROM WMBLK 



/NOT OK 
/OK 



2152 / 

2151 

2lt)2 

2\b6 



^ ^ i-) 4 


00 01 


01 01 


£: i > -? 


\0v<O c 


It' X k9 1 


i i -3 0 


C £?l 7 


d 4 7 7 


2 1 ^7 


0004 


77 4 4 


£ X Olf 




m 77 


2161 




9 A c; 1 

C O i? X 


<£ 1 O ^ 


3 Ct 51 7 
t; ic> fcl / 


*» i. 0 0 


216 3 


0010 


P ? 4 1 
<^ t H 1 


2164 


0011 


4177 


& J. 07 


X C. 


36 41 


21 66 


00 13 


45 77 


2167 


0014 


414 5 


217 0 


0015 


44 7 7 


2171 


0016 


40 4 4 


2172 


0017 


41 36 


2173 


0020 


26 4 5 


2174 


0021 


1077 


21 75 


0022 


7710 


2176 


00 23 


7741 


2177 


00 24 


00 41 


22 00 


00 25 


4142 


2201 


00 26 


40 76 


2202 


0027 


10 77 


22 03 


00 30 


43 24 


2204 


0031 


0177 


22 0 5 


00 32 


0301 


22 06 


00 33 


30 77 


220 7 


00 34 


77 TCO! 


22 10 


00 35 


3077 


9?1 1 


1010 oo 


770IA 


C ^ XiC 


00 37 


417 7 


2213 


(71 H d 
^ l(y H iti 


77 AX 


2214 


00 41 


44 77 




0042 


Tt 01 Z ^ 

013 4 4 




l^ifl *♦ 0 


4 5 7 A 


del. f 




0376 


22 20 


00 4 5 


4 4 77 


2221 


0046 


3146 


2222 


0047 


5121 


2223 


0050 


4651 


2224 


0031 


4040 


2225 


0052 


4077 


22 26 


0053 


0177 


2227 


0054 


7701 


2230 


0055 


0176 


2231 


0056 


7402 


2232 


0057 


0677 


2233 


0060 


7701 


2234 


0061 


1463 


2235 


0062 


6314 


2236 


0063 


0770 


2237 


0064 


7007 


2240 


0065 


4543 


2241 


0066 


6151 


2242 


0067 


4177 


2243 


0070 


0000 


2244 


0071 


1020 


2245 


0072 


0204 


2246 


0073 


0000 



SEGMNT 1 

n /GRID TABLE 

/FOR DSC 
0101 /MARKER 
0101 

4477 /I, A 
7744 

5177 /2.B 
2651 

4136 /3,C 
2241 

4177 /4,0 
3641 

4577 /5,E 
4145 

4477 /6»F 
4044 

4136 /7.G 
2645 

1077 /10,H 
7710 

7741 /II, 1 
00 41 

4142 /12,J 
4076 

1077 /13,K 
4324 

0177 /14,L 
0301 

3077 /15,M 
7730 

3077 /16,N 
7706 

4177 /17,0 
7741 

4477 /20iP 
3044 

4276 /21»Q 
0376 

4477 /22.R 

3146 

5121 /23,S 
4651 

4040 /24,T 
4077 

0177 /25,U 
7701 

0176 /26,V 
7402 

0677 /27,W 
7701 

1463 /30»X 
6314 

0770 /31.Y 
7007 

4543 /32.2 
6151 

4177 /33./ 
0000 

1020 /34,\ 
0204 

0000 /35.3 



2247 


00 74 


77 41 


77 41 




2250 


0075 


4710 


47 10 


JiA. 1 ID A dq nu 


2251 


0076 


1047 


1047 




22 52 


0077 


2504 


2504 


/LF 


2253 


01 00 


04 16 


0416 




2254 


0101 


00 00 




/4w» arACt 


2255 


0102 


0000 


00 00 




2256 


0103 


7500 


7500 


/41 1 ; 


22 57 


01 04 


00 00 






2260 


0105 


6000 


6000 


/42» " 


2261 


0106 


0060 


0060 




2262 


0107 


4020 


4020 


/43 » CR 


2263 


0110 


2055 


2055 




22 64 


01 11 


5721 


5721 


/DOL LAR S I GN 


2265 


0112 


46 71 


4671 




2266 


0113 


14 46 


14 46 


/ or □ rc mt 


2267 


01 14 


6130 


6130 




22 70 


0115 


51 66 


P 1 00 


/ <f o f a 


22 71 


0116 


\az>do 


i7 R '3 A 




227 2 


0117 


4 020 






22 73 


0120 


2055 


C It? 3 -? 




2274 


0121 


3600 


0 010x7 




2275 


0122 


0041 


0041 




2276 


0123 


4 1 00 


4 1 00 


/ 3 i 1 i 


2277 


0124 


00 36 






2300 


0125 


2050 


2050 


/ 5 (C » " 


23 01 


01 26 


00 50 






2302 


0127 


0404 


04 04 


/ 7 * 


2303 


0130 


0437 


U*» O / 




2304 


Viol 




107 1010 




2305 


0132 


V)\a\ao 


O fTl I7t A 




2306 


M 1 oO 


04 04 


04 04 


/ 3 3 » " 


23 07 


01 34 


04 04 






2310 


0135 


0001 


0001 


/50» • 


2311 


01 36 


00 00 


0000 




2312 


0137 


0601 


0601 


/5 7 ( \ 


2313 


01 40 


40 30 






2314 


0141 


4536 


45 36 


/6 0 1 0 


2315 


01 42 


3651 


36 51 




2316 


0143 


2101 


2101 


/6 1 1 1 


2317 


01 44 


01 77 


flu T7 
01 // 




2320 


0145 


4523 


4523 


/AO O 

/Oct ^ 


2321 


01 46 


2151 


2151 




2322 


0147 


4122 


4122 


/O 0 * o 


2323 


01 50 


2651 


2651 




2324 


0151 


2414 


2414 


/A4. 4 


2325 


0152 


0477 


0477 




2326 


0153 


5172 


5172 


/65»5 


23 27 


0154 


0651 


0651 




2330 


0155 


1506 


1506 


/66, 6 


2331 


0156 


4225 


4225 




2332 


0157 


4443 


4443 


/67,7 


2333 


0160 


6050 


6050 




2334 


0161 


5126 


5126 


/70.10 


2335 


0162 


2651 


26 51 




2336 


0163 


5122 


5122 


/71.11 


2337 


0164 


3651 


3651 




2340 


0165 


2200 


2200 


/72. ! 


2341 


0166 


0000 


0000 




2342 


0167 


2601 


2601 


/73. ; 


2343 


0170 


0000 


0000 




2344 


0171 


2410 


2410 


/74,< 


2345 


0172 


0042 


0042 





2346 0173 1212 1212 /75. = 

2347 0174 1212 1212 

2350 0175 4200 4200 /76.> 

2351 0176 1024 1024 

2352 0177 4020 4020 /77,? 

2353 0200 2055 2055 

2354 /MONITOR COMMANDS 
23 55 0201 0120 Z6, 0120 /AP 

2356 0202 6364 JMP OOAP 

2357 0203 0530 0530 /EX 

2360 0204 7561 JMP DOEX 

2361 0205 2320 2320 /SP 

2362 0206 7315 JMP DOSP 

2363 0207 0123 0123 /AS 

2364 0210 6150 JMP DOAS 

2365 0211 2302 2302 /SB 

2366 0212 7206 JMP D0S8 

2367 0213 1411 1411 /H 
2370 0214 6146 JMP OOLI 

23 71 0215 04 30 04 30 /QX 

2372 0216 7565 JMP DOOX 

2373 0217 2011 2011 /PI 

2374 0220 6106 jMP DOPI 

2375 0221 2030 2030 /PX 

2376 0222 7353 JMP DOPX 

2377 0223 2023 2023 /PS 

2400 0224 7337 JMP DOPS 

2401 0225 0314 0314 /CL 

2402 0226 6101 JMP DOCL 

2403 0227 3205 3205 /2ER0 

2404 0230 7706 JMP ZERO 

2405 0231 0102 0102 /AB 

2406 0232 7364 jMP OOAB 

2407 0233 2114 2114 /Qi 

2410 0234 6133 JMP DOQL 

2411 0235 1503 1503 /USER MC 

2412 0236 6357 JMP OOMC 

2413 0237 1417 1417 /LO 

2414 0240 6420 Y6, JMP DOLO 

2415 /MUST HAVE TWO 
2^16 /HEROES HERE 
2417 0241 0000 0 

2420 0242 0000 0 

2421 0243 0000 D6f 0 /CNTRL TABLE 

2^22 /NOTE: E6-D6 MUST BE >=LENGTH OF WORKING AREA, 

2423 / 

2^24 /MONITOR 

2425 /PARAMETER TABLE 

2426 »371 

2427 0371 0000 E6, 0 /lN NUM 

2430 0372 0000 0 /LN NUM 

2431 0373 0000 0 /N 

2432 0374 0000 0 /A 

2433 0375 0000 0 /m 

2434 0376 000? 0 /£ 

2435 0377 0000 0 /UNIT 

24 36 EJECT 



2437 SEGMNT 0 

2440 / 

2441 / 

2442 / 

2443 / 

2444 «21 

2445 0021 mm READ, 0 

2446 0022 0000 WRITE, 0 

2447 / 

2450 / 

2451 // 

2452 *400 

2453 0400 1000 MODKBO, LDA /DUBL BUFFERED 

2454 0401 0000 0 /KEYBRD INPUT SR 

2455 0402 0002 POP 

2456 PMODE 

2457 0403 3230 OCA RTNMOD 
2460 0404 6031 KSF 

24 61 04 0b 5222 JMP TRYBUF 

2462 0406 1302 TAG CHRCTR 

2463 0407 1303 TAD M24 

2464 0410 7650 SNA CL A 

2465 0411 5231 JMP CHKMTP 

2466 0412 6141 LINC 

2467 LMODE 

2470 0413 0603 LIT 3 

2471 0414 7400 JMP KBDOPR 
24 72 04 15 0002 POP 

2473 PMOOE 

2474 0416 3706 DCA I PTRIN 

24 75 04 17 23 02 IS2 CHRCTR 

2476 0420 4237 JMS BUMPIT 

2477 0421 0506 PTRIN 

2500 0422 1302 TRYBUF, TAD CHRCTR 

2501 0423 7640 SHA CLA 

2502 0424 5231 JMP CHKMTP 

2503 04 25 2230 IS2 RTNMOD 

2504 0426 6141 LINC 
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/SR USED FOR 
/SETTING PTRS 
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7260 




3227 


1254 


04 71 


LFORRO 


3230 


1255 


7247 





LINC 
LMOOE 
LOF 1 
LIT 2 
JMP CLWA 
PMODE 
PTAOOR 
TAD I TORF 
4002 

TAD KPT12 
TAD KPTADR 
PT12B 
LM ODE 

JMP ENOCHK /INTERPRET 

SKP /DIAL CODES 

JMP SUBCHR+2 

LDF 2 

SET 3 

2003 

LDF 1 

SAE 

3 

JMP SUBCHR+2 

CLR /FIRST CHAR 

STC COMFLG /CUR LN 

JMP GETTTY 
AifE I 

JMP XIT2C1 
SET 1 17 
SPCHAR-HBIT 
SHO I 17 
JMP XITREG 
SHO I 17 
JMP LFORRO 
SHO I 17 
JMP AMORUP 
SHD I 17 
JMP XIT2C1 
SHD I 17 
JMP COMSET 
SHD I 17 
JMP XIT2C1 
LIF 2 

JMP REGCHR-4 

LOF 2 

LDA 

2000+CURPT2 
ADA I 
-HSIT 
SAE 

2000*2 
XSK I 0 
LDF 1 
JMP 0 
LIF 2 
JMP Cl+2 
LIF 2 

JMP REGCHR 
APO I 

JMP XITREG 
JMP ALTREQ 
APO I 

JMP XITHEG 
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12 67 


3243 
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1272 


3246 
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3250 
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1276 


3252 
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3253 
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3254 
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3255 
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1303 


3257 


1304 
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3261 


1306 


3262 
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3263 


1310 


32 64 


1311 


32 65 


1312 


3266 


1313 


3267 


1314 


3270 


1315 


3271 


1316 


3272 


1317 


3273 


1320 


3274 


1321 


3275 


1322 


3276 


1323 


32 7 7 


13 24 


3300 


1325 


3301 


1326 


3302 


1327 


3303 


1330 


3304 


13 31 


3305 


1332 


3306 


13 33 


3307 


1334 


3310 


1335 


3311 


1336 


3312 


1337 


3313 


1340 


3314 


1341 


3315 


1342 


3316 


1343 


3317 


1344 


3320 


1345 


3321 


1346 


3322 


1347 


3323 


1350 


3324 


1351 


3325 


1352 


3326 


1353 


3327 


1354 
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7112 




0602 


ALTREQ 


7047 




7556 




0470 




7260 




0077 




5565 




14 37 




72 45 




14 37 




7342 




1437 




73 44 




1437 




7346 




1437 




7350 




1437 


EOALT, 


7352 




1437 




7354 




1437 




7356 




7245 




0602 


CHKED, 


70 52 




7556 




0470 




7310 




0077 




1570 




7301 




0602 


SU8CHR 


7055 




7556 




0470 




72 45 




0077 




1563 




1437 




7362 




1437 




7366 




14 37 




7360 




1437 




7414 




1437 




7464 




7247 
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BMOLN* 


7625 




0602 


FWDFR, 


62 50 




0602 


BWOFR, 


7620 




0602 


FWOLN» 


62 55 




0602 


RUBR, 


7272 
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RUBL» 



LIF 2 
JMP RUB 
LIF 2 

JMP ALTSET 
JMP GETTTY 
A2E I 

JMP ALTREQ 
SET I 17 
SPCHAR+2+HBI T 
SHD I 17 
JMP XIT2C1 
SHD I 17 
JMP 8WDLN 
SHD I 17 
JMP FWDFR 
SHO I 17 
JMP 8W0FR 
SHO I 17 
JMP FWDLN 
SHD I 17 
JHP RUBR 
SHD 1 17 
JMP RUBL 
SHD I 17 
JMP RU8C 
JMP XIT2C1 
LIF 2 
JMP EDSET 
JMP GETTTY 
A2E I 
JMP CHKEO 
SET I 17 
SPCHAR+5 
JMP EDALT 
LIF 2 

JMP SUBSET 
JMP GETTTY 

A2E I 

JMP X1T2C1 
SET I 17 
SPCHAR 
SHD I 17 
JMP LFCHK 
SHD I 17 
JMP CHKAM 
SHD I 17 
JMP XITCR 
SHD I 17 
JMP COMFMT 
SHD I 17 
JMP CMAFMT 
JMP XITREG 
LIF 2 
JMP 84 
LIF 2 
JMP P4 
LIF 2 
JMP Q4 
LIF 2 
JMP F4 
LIF 2 
JMP RORIT 
LIF 2 



/ALT MODE REO 



/ALT MODE EDIT 



/LATER CHARS 
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JMP Dl 


33 33 


1360 


0602 


X I TC R» 


1 I r 7 

L i r c 
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LIT 2 
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04 71 
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APO I 
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13 67 
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IMP fut^rn 


3344 
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ST A 


3345 


1372 


1374 




V u nr I, w 


33 46 


13 73 


72 4 7 




IMP yrTfirr 


3347 


1374 


0000 


COMFLG t 


0 


3350 


1375 


0642 


POSCHK f 


LOF 2 


3351 


13 76 


10 00 




LD A 


3352 


1377 


2026 




♦rtlR PTU 


3353 


1400 


02 41 




PHl 1 


3354 


14 01 


0017 




vu n 


3355 


1402 


5413 




O 1 w ft. nr n 


33 56 


14 03 


1000 




1 n A 

LU A 


33 57 


14 04 


20 03 






3360 


1405 


02 41 




ImF L X 


3361 


1406 


341 




Ann TruD^ 
AUU itnr*i 


3362 


14 07 


04 71 




ADA T 


3363 


14 10 


0220 




XS K I 0 


33 64 


14 11 


06 41 




1 n r 1 


3365 


1412 


60 00 




JM P 0 


3366 


1413 


00 00 


T E MP 4 » 


0 


3367 


1414 


73 75 




)M P Pr\^f* Ufa' 


3370 


1415 


74 50! 






3371 


14 16 


13 17 






33 72 


14 17 


72 47 




Jnr AI IKcG 


3373 


14 20 


10 00 




LU A 


33 74 


14 21 


13 74 




uU nr L b 


3375 


1422 


0450 




Act, 


3376 


1423 


7462 




Jn r A I 1 u Un 


3377 


14 24 


06 42 




LU r <: 


34 00 


14 25 


00 52 




SE T 12 


34 01 


14 26 


2003 




2003 


3402 


14 2 7 


00 4 2 






3 4 03 


14 30 


2002 




2002 


3404 


14 31 


0641 




t nr 1 


34 05 


14 32 


0061 




SET I 1 


3406 


1433 


7767 




.10 


3407 


1434 


0070 




SET I 10 


3410 


1435 


7774 




-3 


3411 


1436 


1332 


SRTABi 


LOH I 12 


3412 


1437 


1420 




SHD I 


3413 


14 40 


4700 




TBI 


3414 


1441 


7456 




JMP TABCNT 


3415 


1442 


0221 




XSK I 1 


3416 


1443 


0456 




SKP 


3417 


1444 


7456 




JMP TABCNT 


3420 


1445 


1000 


TABEND* 


LOA 


3421 


1446 


0012 




12 


3422 


1447 


1440 




SAE 


3423 


1450 


00 02 




2 


3424 


1451 


7436 




JMP SRTAB 


3425 


1452 


1000 




LDA 


3426 


1453 


0010 




10 



/FORMAT COMMENT 



3427 


1454 


0602 




LIF 2 




14t>5 


7124 




JKP COMRTN 


3431 


1456 


0fc561 


TABCNT, 


StT I 1 


3432 


1457 


7767 




-10 


34 33 


14 60 


02 30 




XSK 1 10 


3434 


1461 


7445 




JMP T A BE NO 


34 3b 


14 62 


13 17 


XITCOM, 


LOH 17 


3436 


1463 


7371 




JMP COMSET 


3437 


1464 


0642 


CMAFMT , 


LOF 2 


34 40 


X465 


0043 




SET 3 


3441 


1466 


2003 




2003 


34 42 


14 67 


00 42 




SET 2 


3443 


1470 


2002 




2002 


3444 


1471 


0046 




SET 6 


3445 


1472 


2006 




2006 


3446 


1473 


0641 




LDF 1 


3447 


1474 


0054 




SET 14 


3450 


1475 


0003 




3 


34 51 


1476 


1334 




LDH I 14 


34 52 


1477 


14 20 




SHD I 


3453 


1500 


3700 




LFl 


3454 


1501 


7554 




JMP XITCMA 


3455 


1502 


1460 




SAE I 


3456 


1503 


0047 




TB 


3457 


1504 


7554 




JMP XITCMA 


3460 


1505 


1000 




LOA 


3461 


1506 


1374 




COMFLG 


3462 


1507 


0450 




AZE 


3463 


1510 


7554 




JMP XITCMA 


34 64 


1511 


72 33 




JMP ENOCf 


3465 


1512 


0456 




SKP 


3466 


1513 


7554 




JMP XITCMA 


3467 


1514 


1020 




LOA I 


34 70 


1515 


0161 




MAXNUM-'7 


3471 


1516 


2006 




ADD 6 


3472 


1517 


1120 




ADA I 


3473 


1520 


0010 




10 


34 74 


1521 


0017 




COM 


3475 


1522 


4001 




SIC 1 


3476 


1523 


0070 




SET I 10 


3477 


1524 


7770 




-7 


3500 


1525 


0052 




SET 12 


3501 


1526 


0003 




3 


3502 


15 27 


1000 


CMACHK, 


LOA 


3503 


1530 


0012 




12 


3504 


1531 


1440 




SAE 


3505 


1532 


0002 




2 


3506 


1533 


0456 




S K P 


3507 


1534 


7542 




JMP SHUFLE-2 


3510 


1535 


1332 




LOH I 12 


3511 


1536 


1417 




SHO 17 


3512 


1537 


72 45 




JMP XIT2C1 


3513 


1540 


0230 




XSK 1 10 


3514 


1541 


7527 




JMP CMACHK 


3515 


1542 


0052 




SET 12 


3516 


1543 


0003 




3 


3517 


1544 


1334 


SHUFUE< 


, LDH I 14 


3520 


1545 


1372 




STH I 12 


35 21 


15 46 


02 21 




XSK I 1 


3522 


1547 


7544 




JMP SHUFLE 


3523 


1550 


1317 




LDH 17 


3524 


1551 


13 42 




STH 2 


35 2& 


1552 


06 02 




LIF 2 



/FORMAT COMA 



/FIXED JUNE 10.1970 



3b26 


1553 


7137 


35 27 


15 54 


1317 


3t> 30 


15 55 


72 47 


3b31 


1556 


0002 


3b32 






3533 


15 57 


4762 


35 34 


1560 


6141 


3535 


15 61 


60 00 


3536 


1562 


0455 


3537 






3540 


1 56i 


4 737 


3541 


1564 


3643 


3542 


15 65 


57 54 


3543 


1566 


3727 


3544 


1567 


6121 


i545 


1570 


6222 


3546 


1571 


1404 


3547 


1572 


1000 


3550 


1573 


0000 


3551 


15 74 


5660 


35 52 


15 75 


0642 


3553 


1576 


0056 


3554 


15 77 


20 26 


3555 


1600 


7233 


3556 


1601 


4016 


3557 


1602 


0642 


3560 


1603 


0057 


3561 


1604 


2025 


3562 


1605 


0055 


35 63 


16 06 


0016 


3564 


1607 


0053 


3565 


1610 


2002 


3566 


1611 


0074 


3567 


16 12 


0000 


35 70 


1613 


06 41 


35 71 


16 14 


7630 


35 72 


1615 


0234 


3573 


16 16 


1000 


3574 


1617 


00 15 


35 75 


1620 


14 40 


3576 


1621 


0017 


35 77 


16 22 


04 56 


3600 


1623 


7634 


3601 


1624 


1020 


3602 


1625 


3777 


3603 


1626 


2015 


3604 


1627 


4015 


3605 


1630 


1315 


3606 


1631 


1460 


3607 


1632 


0043 


3610 


1633 


7615 


3611 


1634 


1000 


3612 


1635 


0016 


3613 


1636 


1440 


3614 


1637 


0013 


3615 


1640 


0456 


3616 


1641 


7647 


3617 


1642 


0234 


3620 


1643 


1336 


3621 


1644 


1460 


3622 


1645 


0043 


3623 


1646 


7634 


36 24 


16 47 


1020 



JMP CMARTN 
XITCMA, LDH 17 

JMP XITREG 
GETTTY. PDP 

PMOOE 

JHS I KGET 

LINC 

60 00 
KGET, GETCHR 

LMODE 
SPCHAR. TBl+LF 

AMl+CR 

K0M1*C0MA 

R01+8L 

FL *RR 

rl*rc 
chkcnt. ida 

0 





STC 


CNTOUT 




LOT 


2 




SET 


16 




CURPT2+2000 




JMP 


ENDCHK 




STC 


16 




LOF 


2 




SET 


17 




TOPPTR*2000 




SET 


15 




16 






SET 


13 




2002 




SET 


I 14 




0 






LDF 


1 




JMP 


OFFI 


GOCNT, 


XSK 


I 14 




LOA 






15 






SAE 






17 






SKP 






JMP 


OUNHI 




LDA 


I 




-HBIT 




ADO 


15 




STC 


15 




LDH 


15 




SAE 


I 




CR 






JMP 


GOCNT 


OUNHI. 


IDA 






16 






SAE 






13 






SKP 






JMP 


DUNLO 




XSK 


I 14 




LOH 


I 16 




SAE 


I 




CR 






JMP 


DUNH I 


DUNLOl 


LDA 


I 



/JMP 0 



/SPECIAL CHAR 
/TABLE 



/CHK ILLEGAL 
/LEMGTH 



36 25 


1650 


7607 




-MAXNUM 






^626 


1651 


2014 




ADD 14 






36 27 


16 52 


04 70 




A2E I 






3630 


1653 


7656 




JMP ERROR 




3631 


1654 


0451 




APO 






3632 


1655 


76 57 




JMP GOOD 




3633 


1656 


7245 


ERROR* 


JMP XIT2C1 




3634 


1657 


0602 


G000» 


LIT 2 






3635 


1660 


0000 


CN TO U T » 


0 






3636 


1661 


0011 


KOOMC# 


CLR 






36 37 


1662 


10 00 




LOA 






3640 


1663 


2377 




E6+2006 






3641 


1664 


00 02 




POP 






36 42 








PMOOE 






3643 


1665 


6212 




GIF 


10 




3644 


1666 


3272 




OCA 


J8MET 




3645 


1667 


4421 




JMS I 


READ 




3646 


1670 


1672 




.*2 






36 47 


16 71 


52 76 




JMP 


.♦5 




36 50 


16 72 


0000 


JBME T» 


0 






3651 


1673 


00 10 




10 






3652 


16 74 


0270 




270 






3653 


1675 


0001 




1 






3654 


1676 


6141 




LINC 






3655 








IMODE 






3656 


1677 


0641 




LDF 


1 




3657 


1700 


1000 




LOA 






3660 


1701 


2373 




E6+2002 






36 61 


17 02 


06 43 




LOF 3 






3662 


1703 


0602 




LIF 2 






3663 


1704 


6020 




JMP 20 






3664 






/ 








3665 






/ 








3666 






/ 








3667 








PMODE 






3670 






/ 








3671 


1705 


0000 


TESTM. 


0 






3672 


1706 


2305 




ISZ 


TESTM 


/BOP PAST PHOONEY POINTER 


3673 


1707 


6141 




LINC 






3674 








LMODE 






3675 


1710 


0053 




SET 


13 


/SAVE 01 WE BASH IT 


3676 


1711 


0000 




0 






3677 


1712 


0074 




SET I 


14 


/SET 14 TO A SAM 0-1 


3700 


1713 


01 00 




SAM 


0 


/THE SAMPLE INST RU CT 10 N( 0- 17 ) 


3701 


1714 


00 75 




SET I 


15 


/SET 15 TO THE KETUKN JUMP 


37 02 


1715 


6000 




JMP 


0 




3703 


1716 


0076 




SET 1 


16 


/SET UP THE COUNTER NOW 


37 04 


1717 


7757 




-20 




/A SAMPLE OF 16 CHANNELS. 


3705 


1720 


0100 




SAM 


0 


/GET AN INITIAL VALUE 


3706 


1721 


1560 




BCL I 






3707 


1722 


0017 




-7760 




/JUST LEAVE THE HIGH BITS 


3710 


17 23 


57 31 




STC 


COMPEAR 


/SAVE IN THE COMPARITOR 


3711 


1724 


6014 


LOOP. 


JMP 


14 


/DO A SAMPLE NOW 


3712 


1725 


0234 




XSK I 


14 


/BOP TO THE NEXT CHANNEL 


3713 


1726 


1560 




BCL I 






3714 


1727 


0017 




-7760 




/CHOP OFF THE MISCt CRAP. 


3715 


1730 


1460 




SAE I 






37 16 


1731 


0000 


COMPEAR, 


»0 




/TEST AGAINST OUR FIRST SAMPLE 


3717 


1732 


7742 




JMP 


WGA12A 


/WE-G0T-A-12-A 


37 20 


17 33 


02 36 




XSK I 


16 


/BOP THE COUNT 


3721 


1734 


7724 




JMP 


LOOP 


/ITS THE SAME. CHECK THE NEXT CHANNEL 


3722 


1735 


0040 




SET 


0 


/RESTORE 0 NOW 


3723 


1736 


0013 




13 







3724 


1737 


0011 


v5725 


1740 


0002 


3726 






6727 


1741 


5705 


37 33 






37 31 






37 32 






3733 






37 34 






3735 






3736 


1742 


0011 


3737 


1743 


0040 


3740 


1744 


0013 


3741 


1745 


0002 


3742 






3743 


1746 


5747 


3744 


1747 


1005 


3745 






3746 






3747 






3750 






3751 






37 52 






3753 






3754 






3755 






3756 






37 57 


17 50 


0000 


3760 







CLR 
POP 
PMOOE 

JMP I TESTM 

/ 
/ 
/ 

LMODE 

/ 
/ 

WGA12A, CLR 

SET 0 

13 
PDP 
PMOOE 
JMP I 
RTNRTN 

/ 
/ 
/ 
/ 

LMODE 

/ 
/ 
/ 
/ 
/ 

AASEG0, 0 

EJECT 



/ALL THE SAME. ITS A B. HES CHEAP 
/RETURN TO THE CALLER 

/CLEAR THE AC NOW 
/RESTORE 0 

/GET INTO THE GOOD MODE 
/RETURN TO THE CALLER 



37 61 




3762 




3763 


DI SKD=100 


3764 


0 ISK S = 110 


37 65 


5E TUPl =3 22 


3 76 6 


S£ TU P2 = 323 


3767 


OS YS = 7 341 


3770 


/ 


3771 


/ 


3 772 


UNITN0=777 


3773 


WA=370 


3774 


ASTBLK=330 


37 75 


WAUN I T = 0 


37 76 


WAEN 0 = 467 


37 77 


n LE =W A£ ND+1 


42 00 


rKt.L'c/0 


40 01 


01 AL ST -300 


40 02 


0 1 AL U = 0 


40 03 


1 NUL A- 0*» 0 


A fA A 


c r< T o I 1/ " z a. 1^ 


40 05 


Ar ToL^ -0^1 


400 6 




40 07 




4010 


Ua i dLK - o61 


4011 


nvTni w— nvTDi i/ 
rX 1 oLK --iJ X 1 dLI\ 


4012 


r" C A o 

FC 3 A = 20 


4013 


brr L Nb -1 4 0 iw 


4014 


r Y tm td —1 a 
LA I n J r -1 0 


** W 10 


□13 —9 ^01 a 

DO -c 10 


40 16 




4017 




4020 


Co - 0 SWlo 




r*) lou Ai si A 
uUKv AL •lo 


4022 


1 r' '4 V 1 '7 na 
LF i = »5/00 


40 23 


1 C" - 7 7 


4024 


lb 1- 4 /0lO 


40 25 


TB - 4 7 


402 6 


ro 1 — 4 "z mfli 
UH 1 - ^ v3lO0 


402 7 


CR =4 3 


4030 


EOFl 20 


4031 


Eor= 0 


4032 




40 33 


AM =3 6 


40 34 


HQ 1- 3 / toio 


40 35 


on -'X 7 


4036 


SP1=40 00 


40 37 


SP=4 0 


40 40 


COMA1=5400 


4041 


X0A=21 


4042 


C0MA=54 


4043 


KOM1=5700 


4044 


K0M=57 


4045 


LNHC=1013 


4046 


MCVC=-357 


4047 


MKHC=1763 


4050 


MCHC=1051 


4051 


BL=27 


4052 


Fr=6100 


4053 


8F = 21 


4054 


FL=6200 


4055 


RR=22 


4056 


RL=1400 


4057 


RC = 04 



/SYSTEM 
/PARAMETERS 

/POINTS TO NEXT FREE SPOT ON SYSTEM DEVICE TABLE 

/WA UNIT 

/START OF DIAL 
/DIAL UNIT 



4062 


OELTA=50 


4061 


PT ADDR=2400 


4062 


PT IN IT=PTADDR+OtLTA 


4063 


PTEXIT=P TINI T + OELTA 


4064 


PT12B=PTEX IT+DELTA 


4065 


B12VAL=PT12B*20 


4066 


D6VAL = B12VAL*lt> 


406? 


D6PTR=2000+D6-2 


4070 


MA XNUM =1 70 


4!^;7 1 


PCODE=2000 


4072 


LCODE=1400 


4073 


QMARK1=7700 


4074 


PT8LKS320 


4075 


/THIS IS THE DIAL EDITOR V2 


40 76 


/15 DEC 69 


4077 


EJECT 



4100 






/APNPTRV2 




4101 






/10 DEC 69 




4102 






/EDITOR V2 POINTERS T8LK 320 
/INITIAL VALUES EXIT VAlWT^ 


4103 






4104 






/AND ADDRESSES 




4105 






LMOOE 




4106 






SEGMNT 5 




4107 






»PTAOOR 




4110 






PMODE 




4111 


24 00 


1121 


MOVE IT 


/BECOMES 4002 


4112 






LMODE 


/AFT VIRGIN RUN 


411^ 








/BETA 2 IS PTR 


4114 








/TO W8 


4115 


0401 


4003 


4003 


/PTR TO 1ST CHAR 


4116 








/OF CUR LN 


4117 


0402 


4004 


4004 


/PTR TO CB 


4120 


04 03 


4005 


4005 


/PTR TO CONTROL 


4121 








/TABLE (06) 


4122 


0404 


4006 


4006 


/CHAR CTR CURLN 


4123 


0405 


4705 


40 00+BBTBL K 




4124 


0406 


4664 


4000+WBTBLK 




4125 


0407 


4770 


4000+CURBLK 




4126 


0410 


4533 


4000+SPT9LK 




4127 


0411 


4200 


4000+NQT OK+2 




41i0 


0412 


4742 


4000+X2+5 




4131 


0413 


4447 


4000+CURLN 




4132 


0414 


4451 


4000+M AXLN 




4133 


0415 


4203 


4000+TPrLG 




4134 


0416 


4171 


4000+PLACTR 




4135 


0417 


44 54 


40 00 +M AX8LK 




4136 


0420 


4723 


4000+CBTBLK 




4137 


0421 


4733 


4000+TBLKC8 




4140 


0422 


4020 


4000 +20 




4141 


0423 


4523 


4000+TPSTAT 




4142 


0424 


0000 


0 




4143 






«PTINIT 




4144 


0450 


6 7 7 7 


H8IT+WB-1 




4145 


0451 


7001 


HBIT+HB+1 




4146 


04 52 


00 00 


0 




4147 


0453 


2243 


06+2000 




4150 


0454 


7607 


-MAXNUM 




4151 


04 55 


53 67 


5\WA«1 




4152 


0456 


5367 


5SWA«1 




4153 


0457 


6367 


6\WA™1 




41 54 


04 60 


53 67 


5\WA«1 




41 55 


0461 


4203 


STC TPFLG 




4156 


0462 


0000 


0 




4157 


0463 


0001 


1 




4160 


0464 


0001 


1 




4161 


0465 


7777 


7777 




4162 


0466 


0000 


0 




4163 


0467 


0000 


0 




4164 


04 70 


00 00 


0 




4165 


0471 


0000 


0 




4166 


0472 


7775 


JMP RESTRT 




4167 


0473 


4203 


STC TPFLG 




4170 


0474 


00 00 


0 




41 71 






»PTEXI T 




4172 






PMOOE 




41 73 


2520 


5353 


VIRGST4177+5200 




4174 






LMODE 




4175 


0521 


7001 


HBIT+WB*! 




4176 


0522 


00 00 


0 





4177 


0523 


2243 


06*2000 


4200 


0524 


7607 


-MAXNUM 


42 01 


05 25 


53 67 


5\WA-1 


4202 


0526 


5367 


5\WA=1 


4203 


0527 


6367 


6\WA=1 


42 04 


0530 


53 6 7 


5\WA=1 


4205 


0531 


4203 


SIC TPFLG 


4206 


0532 


0000 


0 


4207 


0533 


0001 


1 


4210 


0534 


0001 


1 


4211 


0535 


7777 


7777 


4212 


0536 


0000 


0 


4213 


0537 


0000 


0 


4214 


0540 


0000 


0 


4215 


0541 


0000 


0 


4216 


0542 


7775 


JMP RESTRT 


4217 


0543 


6203 


JMP TPFLG 


4220 


0544 


0000 


0 


42 21 






•P Tl 28 


4222 


0570 


6020 


6000*SAM3 


4223 








4224 








4225 


05 71 


6021 


6000*SAM3*1 


4226 


0572 


6022 


6000*SAM3*2 


4227 


0573 


6023 


6000+SAM3+3 


4230 


0574 


6024 


6000*SAM3+4 


4231 


05 75 


6025 


60 00 +S AM 3* 5 


4232 


0576 


6026 


6000+SAH3+6 


4233 


0577 


6027 


6000+S AM3*7 


4234 


06 00 


6030 


60004SAM3^10 


4235 


0601 


6031 


6000+SAM3+11 


4236 


0602 


6032 


6000+S AM3+12 


4237 


0603 


6033 


6000*S AM3+13 


4240 


0604 


6034 


6000+S AM3+14 


4241 


06 05 


0000 


0 


4242 






«B12VAL 


42 43 


0610 


0517 


LSW 


4244 


0611 


1560 


8CL I 


4245 


0612 


40 00 


40 00 


4246 


0613 


0017 


COM 


4247 


0614 


4016 


STC CURVAL 


4250 


0615 


6000 


JMP 0 


4251 


0616 


0516 


RSW 


4252 


0617 


1560 


BCl I 


4253 


0620 


7760 


7760 


4254 


0621 


0450 


Ml 


42 55 


06 22 


60 00 


JMP 0 


4256 


0623 


2072 


ADO POSl 


4257 


0624 


6000 


JMP 0 


426a 






4261 








4262 






SEGMNT 6 


4263 






*1400 


42 64 


14 00 


1020 


LDA I 


4265 


1401 


0001 


1 


4266 


1402 


4351 


STC PLAFLG 


4267 


14 03 


6611 


JMP BUWB 


4270 


1404 


6152 


JMP Kl 


4271 


1405 


7636 


JMP 18 


42 72 






4273 


1406 


7434 


JMP E8 


42 74 


14 07 


1030 C8, 


LDA I 10 


4275 


1410 


1620 


BSE I 



/AOOR OF KNOB SR 
/THE KNOB SUB RT 
/ARE CHANGED 
/FOR A 128 



/KNOB SR FOR 12A 
/ARE REPLACED BY 
/THE FF 
/SWITCH SR 
/FOR A 12 B 
/LSW 1-11 
/CONTROLS CURSOR 
/RSW 8-11 
/CONTROLS LNS 
/PER FRAME 



/ADD PROGRAM V2 
/TBLK 321 



/DISABLE B8 WRC 
/SUB RT BY 
/SETTING THIS WO 
/DELETE AP COM 
/FROM WB 
ZAP BY NAME 
/OR TBLK NUM ? 
/BLK NUM 
/BY NAME 



4276 


1411 


2000 




MB LK2 






1412 


5601 




STC TPWO 




4300 


1413 


1030 




LOA I 10 


/BINARY OR 


4^01 










/PROG NAME 


4302 


1414 


0451 




AP 0 


/Match ? 


4303 


1415 


7665 




JMP SAYNO 


/BINARY ONLY 


43<j94 


1416 


1000 




LD A 


/AP RY 1 N NtUM9 


4335 


1417 


2371 




2000+E6 




4 3 06 


1420 


1440 




SAE 




4307 


1421 


2372 




2000-i-E64'l 




43ia 


14 22 


04 56 




SK P 




4 311 


X 423 


7447 




IMP Nini N 




4312 


1424 


10 00 




LO A 




4313 


1425 


2371 




2000 4E6 




4314 


1426 


5765 




STC LNl 




4315 


1427 


1000 




LOA 




4316 


1430 


2372 




2000+E6+1 




4317 


1431 


3753 




ADD AONE 




43^0 


14 32 


5766 




STC LN2 




4321 


1433 


7455 




JMP CHKORG 




4322 


1434 


1000 


E8 > 


LDA 


/AP BY 8LK NUM 


4323 


1435 


2371 




E6+2000 


/BLK NUM TO AC 


4324 


1436 


1560 




BCL I 




4325 


1437 


0777 




-7000 


/TOO BIG C8LK ND,>777] 


4326 


1440 


0450 




AZE 




4327 


1441 


7702 




JMP K8 


/YEP 


4330 


1442 


1000 




LDA 




4331 


1443 


2371 




E6+2000 


/RECALL IT AGAIN. 


4332 


1444 


1620 




BSE I 




4333 


1445 


2000 




MBLK2 




4334 


1446 


5601 




STC TPWD 




4335 


1447 


1020 


NOLN f 


LDA I 




4336 


1450 


0001 




1 




43 37 


1451 


1040 




ST A 




4340 


1452 


1765 




LNl 




4341 


1453 


0017 




COM 




4342 


1454 


5766 




STC LN2 




43 43 


1455 


75 70 


CHKORGt 


JMP MAGTP-10 


/GET 1ST TBLK 


4344 


1456 


1030 




LOA 1 10 


/DO NOT PUT 


4345 


1457 


1460 




SAE I 


/»20 CR IN 


4346 


1460 


5262 




5262 


/WITH AP 


4347 


1461 


7722 




JMP K86 


/RESTORE 10 


43 50 


14 62 


10 30 




LDA I 10 




4351 


1463 


1460 




SAE I 




43 52 


14 64 


60 43 




60 00 +CH 




43 53 


14 65 


7722 




JMP K8a 




4354 


1466 


1020 




LDA I 




4355 


1467 


0001 




1 




4356 


1470 


1440 




SAE 




4357 


1471 


1765 




LNl 




4360 


1472 


7742 




JMP BYPASS 




4361 


1473 


1330 


F8, 


LOH I 10 


/TRANSFER 1 CHAR 


4362 


1474 


14 20 




SHD I 




43 63 


1475 


00 00 




EOFl 


/ARE WE DUN ? 


4364 


1476 


7550 




JMP J8 


/YES 


4365 


1477 


1362 




STH I 2 


/NO GI VE 1 CHAR 


4366 










/TO EDITOR 


4367 


1500 


1460 




SAE I 


/WAS IT A CR ? 


4370 


1501 


0043 




CR 




4371 


1502 


7512 




JMP H8 


/NO CHK BUFFERS 


43 72 


1503 


65i^2 


G8 , 


JMP EOLFIX 


/YES UPDATE 


4373 


1504 


0017 




COM 


/BETA 3, CURLN 


43 7 4 


1505 


2451 




ADO MAXLN 


/AND MAXLN 



4375 


1506 


4451 




STC MAXLN 


4x5 76 


1507 


37 53 




ADD AONE 


4J77 


i5ia 


1140 




AOH 


4400 


1511 


1765 




LNl 


4401 


1512 


7554 


H8 # 


JMP ASF 


44 02 










4403 


1513 


6110 




JMP CHKBUF 


44 04 










4405 






/ 




4406 


1514 


1020 




LDA I 


44fe}7 


1515 


0001 




1 


4410 


1516 


4351 




STC PLAFLG 


4411 






/ 


4412 


1517 


1000 




LDA 


4413 


1520 


0003 




3 


4414 


1521 


1440 




SAE 


4415 


1522 


0002 




2 


4416 


1523 


7543 




JMP CHKEF8 


4417 


1524 


1000 




LDA 


44 20 


15 25 


0451 




MA XL N 


4421 


1526 


0470 




AZE I 


4422 


1527 


7535 




JMP ,+6 


4423 


1530 


1000 




LDA 


4424 


1531 


0770 




CURBLK 


4425 


1532 


1460 




SAE I 


44 26 


15 33 


64 67 




6\WAEND 


4427 


15 34 


7543 




JMP CHKEFS 


4430 


1535 


10 20 




LDA I 


4431 


1536 


7776 




-1 


44 32 










4433 










4434 


153? 


6504 




JMP EOLFIX+2 


4435 


1540 


2451 




ADD HAXLN 


44 36 


1541 


44 51 




STC MAXLN 


4437 


1542 


6152 




JMP Kl 


4440 






/ 


4441 


1543 


1000 


CHKEF8, 


LDA 


44 42 


15 44 


1765 




LNl 


4443 


1545 


1440 




SAE 


4444 


1546 


1766 




LN2 


4445 


1547 


7473 




JMP F8 


4446 






/ 


4447 


1550 


6176 


J8 . 


JMP NOTOK 


4450 










44 51 


1551 


64 46 




JMP A3 


4452 


1552 


6512 




JMP L3 


4453 


1553 


7702 




JMP K8 


4454 


1554 


1000 


A8F» 


LDA 


4455 


1555 


0010 




10 


4456 


1556 


1460 




SAE I 


4457 


1557 


5377 




5377 


4460 


1560 


6000 




JMP 0 


4461 


15 61 


10 00 




LDA 


44 62 


15 62 


16 01 




TPWD 


4463 


1563 


1560 




BCL I 


4464 


1564 


0777 




-7000 


4465 


1565 


1460 




SAE I 


4466 


1566 


2000 




MBLK 2 


4467 


1567 


7550 




JMP J8 


4470 


1570 


0041 




SET 1 


4471 


1571 


00 00 




0 


4472 


1572 


7730 




JMP DTEXTR-1 


4473 


15 73 


0603 




LIF 3 



/CHK AP INPUT 
/BUFFER 
/CHK EDITOR 
/INPUT BUFFERS 



/MAKE SURE THE ADD PROGRAM SWITCH IS OK, 



/HAVE WE JUST 
/PROCESSED A 
/CR ? 

/NO. CHECK END 
/YES CHK FOR 

/NA TOO FULL 
/TOO MANY LNS ? 
/YES END OF AP 
/TOO MANY BLKS ? 



/NO. CHECK END 
/WA IS FULL 
/DELETE LAST LN 
/AND RTN 
/TO EDITOR 



/NOT END. GET NEXT CHAR, 

/COME HERE 
/WHEN DONE 



/IS AP INPUT 
/BUFFER EMPTY ? 



/NO 

/TEST FOR END OF DEVICE. 



/CHOP OFF BLOCK NUMBER 

/STILL THERE CNO OVERFLOW] ? 
/OVERFLOW. END OF INPUT. 



/GET EXTENDED 



4474 


1574 


0006 




DJH 






4475 


1575 


1020 




LDA 


I 




44 76 


1576 


76 00 




JMP 


.+2 




44 77 


1577 


7620 




JMP 


GOOOY 




A5m 












/TAPE UNITS 




1600 


0700 


MAGTP. 


RDC 






4^02 


1601 


2346 


TPWDi 


MBLK2MNDEX 


/INITIALLY HOLDS 


4503 












/INDEX TPWORD 


4504 












/HOLDS TBLKS 


4505 












/DURING AP 


4506 


1602 


0070 




SET 


I 10 




4507 


1603 


4777 




4777 




/INITIAL ADDR 


4510 












/OF AP INPUT 


4511 












/BUFFER 


4512 


1604 


2167 




ADO 


PI 


/BUMP TBLK 


4513 


1605 


3601 




ADD 


TPWD 




4514 


1606 


5601 




STC 


TPWD 




4515 


1607 


60 01 




JMP 


1 




4516 


1610 


0041 




SET 


1 


/SEARCH INDEX 


4517 


1611 


00 00 




0 




/FOR NAME MATCH 


45^^0 












/I TBLK ONLY 


4521 


1612 


00 72 




SET 


I 12 


/LENGTH OF NAME 


4522 


1613 


77 73 




-4 






4523 


1614 


0073 




SET 


I 13 


/NAME SECTOR OF 


4524 


1615 


2372 




E6+1+2000 


/MC TABLE 


45 25 


1616 


1000 




LDA 






4526 


1617 


0010 




10 




/PTR TO INDEX 


4527 


1620 


1620 




BSE 


I 




4530 


1621 


0007 




7 




/NEXT NAME 


4531 


1622 


1460 




SAE 


I 




4532 


1623 


5377 




5377 




/DUN A 8LK ? 


4533 


1624 


7627 




JMP 


.♦3 


/NO 


4534 


1625 


0221 




XSK 


I 1 


/YES RTN 


4535 


1626 


6001 




JMP 


1 


/TO P'^2 


4536 


1627 


4010 




STC 


10 




45 37 


16 30 


10 30 




LOA 


I 10 


/ALL 4 WORDS 


4540 


1631 


1473 




SAE 


1 13 


/MUST MATCH 


4541 


16 32 


7612 




JMP 


88*2 


/OR WE TRY NEXT 


4542 












/NAME 


4543 


1633 


0232 




XSK 


I 12 


/4 MATCHES ? 


4544 


1634 


7630 




JMP 


,-4 


/NO DO SOME MORE 


4545 


1635 


60 01 




JMP 


1 


/YES NAME MATCH 


45 46 


1636 


0057 




SET 


17 




4547 


1637 


00 00 




0 






4550 


16 40 


77 14 




JMP 


SETS 


/GET UNIT NUM 


4551 


1641 


5731 




STC 


DTEXTR 


/SAVE EXTENDED 


4552 












/UNITS 


4553 


1642 


0264 




ROL 


I 4 


/UNIT BIT TO AC 


4554 


1643 


3600 




ADD 


MAGTP 




4555 


1644 


5600 




STC 


MAGTP 




4556 


1645 


1300 




LDH 




/CHK FOR AP 


45 57 


1646 


23 73 




E6 +2 


+2000 


/BY NAME 


4560 


1647 


14 20 




SHD 


I 




4561 


1650 


7700 




7700 




4562 


1651 


6017 




JMP 


17 


/ITS BY TBLK NUM 


4563 


1652 


0237 




XSK 


I 17 


/ITS BY NAME 


4564 


1653 


7570 




JMP 


MAGTP-10 


/GET INDEX 


4565 


1654 


1030 




IDA 


I 10 


/IS IT AN INDEX 


4566 


1655 


1460 




SAE 


I 




4567 


1656 


5757 




5757 




4570 


16 57 


7665 




JMP 


SAYNO 


/NO INDEX 


4571 


1660 


7610 




JMP 


B8 


/SEARCH 1ST 


4572 












/TBLK OF INDEX 



45 73 


1661 


6017 




JMP 17 


4b74 


1662 


75 70 




IMP M&f^TP~10 


45 75 










4576 


1663 


7610 




JMP 88 


4577 


1664 


6017 




JMP 17 


4600 


1665 


0011 


SAYN 0 t 


CLR 


4601 


1666 


0061 




SET I 1 


4602 


1667 


0340 




340 


4603 


1670 


0072 




SET I 12 


4604 


1671 


2035 




A6^34<*' 20 00 


4605 


1672 






DSC 12 


4606 


1673 


1772 




DSC I 12 


4607 


1674 


0061 




SE T I 1 


4610 


1675 


0352 




352 


4611 


1676 


1772 




DSC I 12 


4612 


1677 


1772 




DSC I 12 


4613 


1700 


0415 




KS T 


4614 


1701 


7665 




JM P S A YN 0 


4615 


17 02 


0011 


K8 f 


CL R 


46 16 


1703 


4351 




ST c PI ATI r: 


4617 


1704 


0002 




PO P 


4620 








PM ODE 


4621 


57 05 


62 12 




GIF 10 


4622 


5706 


4421 




JMS T RFAn 


4623 


5707 


5770 




JPLAF 


4624 


5710 


6141 




L I NC 


4625 








LM ODE 


4626 


1711 


0641 




LDF 1 


46 27 


17 12 


0603 




LI F 3 


4630 


1713 


6410 




IMP A P OT Kl 


4631 


17 14 


00 11 


S£ TS t 


CL R 


4632 


1715 


10 00 




1 n A 


4633 


1716 


2377 




to lOV Kl 


4634 


17 17 


1560 




ftp f T 


4635 


17 20 


70 00 




"7 77 


46 36 


17 21 


6000 






4637 


17 22 


10 00 


no O t 


LU A 


4640 


1723 


0010 




1 a 


46 41 


17 24 


Li. cv 




ADA I 


4 64 2 


17 25 


7 7 76 




-1 


46 43 


1726 


4010 




J 1 C IB 


46 44 


17 2 7 


6000 




JMP 0 


46 45 


1 7 ^C! 


10 20 




LD A I 


4646 


1731 


0000 


DT FXTR . 


0 


4647 


1732 


0643 




LOF 3 


4650 


1733 


10 40 




STA 


4651 


1734 


3702 




GC TW0S1777 12000 


4652 


1735 


0011 




CLR 


4653 


1736 


1040 




STA 


4654 


1737 


3701 




WATAG51777+2000 


46 55 


17 40 


0641 




LDF 1 


4656 


1741 


6000 




JMP 0 


4657 


1742 


t>7b7 


BYPASS* 


STC LNCTR 


4660 


17 43 


1330 




LDH I 10 


4661 


1744 


14 20 




SHD I 


4662 


1745 


0000 




EOFl 


4663 


17 46 


7550 




JMP J8 


4664 


1747 


1460 




SAE I 


4665 


1750 


0043 




CR 


4666 


1751 


7763 




JMP BYEOL 


4667 


1752 


1020 




LDA I 


4670 


1753 


0001 


AONE» 


1 


4671 


1754 


1140 




ADM 



/FOUND A MATCH 
/GET 2ND TBLK 
/OF INDEX 
/SEARCH AGAIN 
/FOUND A MATCH 
/COME FOR NO 
/PROG. NO INDEX 
/OR NO MATCH 

/GRID ADDR 



/LOOP UNTIL K80 



/GET 
/NUM 



UNIT 



/RETURN NOW. DONT GO TO THE OTEXTR, 



46 72 


17 55 


17 67 




LN CT R 


4 6 7 3 


1756 


1 440 




c A r 
b A t 


46 74 




1 / OP 




LM 1 


46 7b 


17 60 


77 A ? 




1 lot □ LI V c n I 


46 76 


1 7 01 


7^ CkA 




JM P ASF 


46 77 


17 62 


7 d 7 7 




J rn r r O 


47 i30 


17 63 




□ V r n t 


JM P ASF 


4 701 


17 6 4 


/ / *» O 






47 02 


17 65 


00 00 


UNI 1 


0 


4703 


17 66 


0000 


LN2 f 


0 


47 04 


i 1 t\1 
Xf 0 t 


ti\0 iu0 


UN If T N t 




4735 








PMODE 


4706 








M9UK2=2000 


4707 






/ 




4710 






/ 




4711 


5770 


0100 


JPLAF, 


OISKO 


4712 


5771 


0012 




12 


4713 


5772 


0002 




DIALST +2-300 


4714 


57 73 


00 01 




1 


4715 






/ 




4716 






/ 




4717 






/ 




4720 






/ 




4721 






/ 




4722 






/ 




4723 






/ 




4724 






/ 




4725 






/ 




4726 








EJECT 



4727 / 

4730 / 

4731 / 



NO ERRORS 



SYMBOL VALUE DEF REFERENCES 

AAA4S2 4371 0441 

AAA4S3 636^5 0421 

AAA7S2 4670 0760 

AAA7S3 6660 074t) 

AASEG0 1750 3757 

AATTY3 7617 2124 

ACR 5141 1265 3334 

ACR2 5160 1304 1230 1266 1276 1302 

ACTOWB 4107 0137 1217 

AJMP 7432 1705 1677 

ALTM 7507 1763 1714 

ALTHl 7503 1757 1 /66 

ALTREQ 1260 3233 1174 3226 3237 

ALTSET 5047 ll72 3234 

ALT£ 7513 1767 1716 

AM 0036 4033 

AHORUP 1251 3224 3175 

AMI 3600 4032 3541 

ANOP 5422 1546 

AONE 5753 4670 4317 4 37 6 

APRTN 6410 0454 4630 

APTBLK 0321 4005 2641 

AST8LK 0330 3774 2627 2634 

ATAD 1167 3141 3125 

A3 4446 0523 0335 0360 0437 1767 2044 4451 

A6 2001 2154 1063 4604 

A8F 5554 4454 4401 4676 4700 

A88 1174 3147 1171 

BB 2400 4015 0464 

B6BWD 4673 0766 0647 

B8FWD 4671 0762 0404 0433 

8BR0C 4677 0772 0550 0650 

BBTBLK 4705 1000 03 63 0542 05 46 0551 0614 07l2 0756 2053 4l23 

BBWRC 4622 0711 03 62 064 4 0732 

BF 0021 4053 35 44 

8L 0027 4051 3543 

BLKST 6241 0266 02 07 0254 

BTREAD 4010 0024 0052 

BTREC 4011 0025 0053 

BUCBWB 4605 0672 2021 

BUMPIT 0437 2522 2476 2523 2535 2536 2544 

BU^B 4611 0676 02 12 0245 0257 103 7 1545 1613 2110 4267 

BUIC 4777 1111 1720 1722 

BUILN 5607 1741 l7l4 

8WDCHR 5405 15 31 1537 

BWDFR l34b 3321 3251 

Bt^OLN 1342 3315 3245 

BWOSLO 5641 1776 i/66 2031 

BYALN 5576 1727 1125 

BYAS 6152 0173 0166 

BYEOL 5763 4700 4666 4 67 5 

BYMC 6054 0066 0055 

BYPASS 5742 4657 4360 4701 

B12VAL 2610 4065 3025 4066 4242 

84 5625 1761 1757 3316 

85 5546 1674 

B8 5610 4516 4541 4571 4576 

CARTB 6736 1027 1024 

CB 3400 4020 0426 0520 0654 2007 2103 

CBBWD 4711 1007 2016 

C8FW0 4707 1003 0515 0622 



W 4. 



SVMBOL VALUE OEF RtrERENCLS 



C8MT 
CBHDC 
CBTBLK 
CBT0W3 
Cb W^C 
CHAR 
CHKAM 
CHKB JF" 

chkcnt 

CmKLO 

CHKEF8 

CHKEND 

CHKMC 

CHKMC3 

CHKMT 

CHKMTP 

CHK^OK 

CHKORG 

CHKPLA 

CHKPOS 

CHKWBE 

CHKWBF 

CHRCTR 

clRall 

CLWA 
CMACHK 
CMArMT 
CMARTN 

CNTALL 

CNTOUT 

COMA 

COMAl 

COMFLG 

COMFMT 

COMPEA 

comrtn 

COMSET 

COMTB 

CR 

CRCOOE 
CRHI 

crlow 

CRSET 
CRl 

CTLTA8 
CURBLK 
CUHFLG 
CURGO 

curln 

CURPTR 

CURPT2 

CURRTN 

CORSET 

CURSOR 

CURVAL 

CURVC 

CI 

C8 

OtCOOE 

OEL^C 

OELTA 



47 1':^ 
4 4 7 4 

4 72:> 
75bi? 

41 

42 C6 

04 J i 
37 61 

416t5 
5256 
45t>l 
43»2 

6266 
4041 
1&27 
1464 
bl37 
65>2b 
1660 
20b4 
b^m 
1374 
1414 
1731 
5124 
1371 
1637 
0043 
7547 
5173 
31 ^^3 
3014 
4300 
106P 
4772 
6i573 
6466 
4447 
64o2 
4026 
tb^2 
63^12 
6076 
0016 
6074 
5042 

542 7 

42lg 
0030 



Z3i5/ 
1Z14 
1022 
ii554 
1025 
2053 
3341 
31«?i 
331/ 
3263 
44 41 
13 7'^ 

02 43 

03 02 
1434 
2312 
2123 
4343 
0220 
1402 
06 33 

04 22 
2567 
0316 
0 063 
35 02 
34 37 
1263 
0600 
3635 
4042 
4040 
3347 
3367 
3716 
1230 
3344 
1036 
402 / 
2042 
1321 
1231 
1134 
4026 
3031 
10/2 
010/ 
0541 
0524 
03 03 
0044 
0625 
0533 
01 10 
4021 
0106 
1162 

4274 
1216 
02 45 
4060 



^345 
0516 

0 621 
i3337 
2013 
1634 
3305 
1145 
1213 
1177 
44 16 
1263 

1^:34 
02 44 

01 7 6 
k!465 
1220 
4321 
0144 
1210 

02 05 
0142 
0127 
0305 
0121 
3514 
3313 
3526 
0373 
3551 
12 55 
1312 
1260 
3311 
3/10 
3430 
3201 
1022 
0773 
2003 
1325 
1324 
1321 
0427 
2/46 
0410 
0101 
0534 
0156 
0620 
0624 
0527 
0564 
0067 
00 3 3 
lfl075 
0465 
2142 



•3376 
t^62 3 
1010 



ii6 51 
4136 



1671 1717 1/31 1735 



4403 
1644 
3267 
4427 
1301 



1455 
2 502 
1237 

0210 
1221 
154 0 
0346 
2462 



3343 

1330 1416 1446 1515 1523 1555 1570 
1504 

1313 1434 1473 

1543 

1316 2133 
2004 

0377 0633 0670 
2475 2500 2547 2550 



0154 3136 



134 4 35 42 

2572 3162 3345 3374 3461 



3436 
104 7 
0072 



1252 
3010 
0440 
0670 
0576 
0263 
1135 
0134 



0552 
0672 
0062 

3221 



0163 1123 1271 1305 1561 1725 3541 3607 3622 4352 4370 4665 



1301 1341 1377 0557 0704 l521 1713 
3032 3034 3035 3037 3050 
1154 4125 4424 
1101 

0455 0565 0566 0607 1140 1141 1503 1647 1650 l700 2001 2061 4l3l 

0450 0451 0666 0667 1245 1246 1373 1403 1447 l45l 1464 1465 l5l4 1552 3210 3352 3554 

0357 0374 4247 

0874 3160 0201 0247 0331 1225 1227 1243 1273 1303 1322 1417 1435 1437 1474 I5l2 1633 1775 2003 2032 



0271 0413 0431 0467 1335 1457 15 41 2102 
1156 

4062 4063 4064 



SYMBOL VALUE DEF HtFErJENCES 



OFF I XR 


16 3.-: 




3t)7l 


01 ALST 




40^.1 


k3027 2b22 ^646 2676 27lJ 4/i3 


DI ALU 




4 0tV 


0 1 iM3 UP 




27Zb 


0103 1053 


0! SKD 




6766 


0025 2620 2625 2632 2637 2644 2651 2656 2667 


DISKS 


01 iZ 


37 64 


0201 2176 2220 


oisln 


561^ 


1744 


1/01 1731 


01 SPLA 


t>i>31 


1657 


1164 1172 11 75 1200 


OISTXT 


6661 


^75^^ 


1171 


DO AB 


73 64 




2406 


DO AP 


6364 


0423 


2356 


00 AS 


6lDi: 


01 /I 


2364 


008U 


bb7l 


1722 


1726 


docl 


61i?l 


0113 


0117 2402 


OODX 


7563 


2066 


2372 


DUEX 


7bbl 


2062 


2360 


dolef 


533!3 


l'>61 


1466 


OOLl 


6146 


0167 


2370 


OOLO 


642s; 


0467 


0147 2414 


0 0 H C 


63 b7 


0415 


2412 


OOP I 


tlZb 


0122 


2374 


OOPb 


7657 


15iJ2 


2400 


DOPX 


7353 


1521 


2376 


DDQL 


6133 


0151 


01 70 2410 


DOSB 


7206 


1335 


2366 


OOSP 


73lb 


14t>t> 


2362 


DOSPTP 


733i? 


14 7 7 


1465 


DOWN 


5S>36 


1704 




DSCCHR 


675i5 


1061 


0743 0764 1152 


DSCCUR 


6036 


0045 


1137 


OSCRTN 


6620 


0655 


0647 


DSYS 


73 41 


3767 


0141 


DTEXTR 


5731 


4646 


4472 4551 


DUNGAP 


t>237 


1363 


1352 


ou m I 


1634 


3611 


3600 3623 


OUNLEF 


i>343 


1467 


1454 


OUNlO 


1647 


3624 


3616 


DUNK IT 


t?3i36 


1432 


14 21 


DU NS 8 


7264 


1413 


1342 1400 


OXTBLK 


0361 


4010 


4011 


Dl 


4117 


0147 


1161 3332 


05> 


5004 


1116 


1707 


06 


22 43 


24 21 


0504 0657 1705 2055 2074 305l 4067 4147 4177 


06 CTR 


11Z5 


3051 


3040 


06 LOOP 


10 76 


3042 


3047 


D6PTR 


2241 


4067 


2747 3012 


06VAL 


262b 


4066 


2/50 3011 


EANOZB 


773t) 


2272 


1163 


ECON 


7607 


2112 


0175 


edalt 


1301 


32 54 


32 72 


EOSET 


5052 


1175 


3264 


EGGSIT 


7075 


1212 


1206 


END8Ur 




257 ; 


2526 


ENOCHK 


1233 


32i56 


31 47 3 464 3555 


ENDFLG 


6542 


0615 


0536 0571 0603 


ENORUB 


5414 


1540 


1524 


ENOSKP 


6/42 


1033 


1020 


ENDTAB 


7557 


20^2 


1655 1704 1741 1756 1763 1772 1773 


EN 0TB 


6757 


1050 


1017 


ECbERR 


5037 


1157 


1151 


EQBLOP 


4135 


0165 


0200 


EoaPST 


4143 


0173 


0164 



SYMBOL 


VALUE 


OEF 


REFERENCES 






E08WR0 


4146 


0176 


017 2 


1160 






EOF 


00 (d0 


4031 


06 01 








EOFRAM 


7023 


1127 


0667 


0671 


0753 


0765 


EOFl 


mm 


4030 


03 73 


4363 


4662 




EOL!^ IX 


45>02 


0563 


0167 


0342 


2025 


4372 


ERROR 


16b6 


3633 


36 30 








iRRX IT 


70!?1 


Il6ii3 


0177 


0217 


0234 


1505 


EXIT 


7517 


1773 


17 33 


174 4 


1750 


1752 


EXTMTP 


mis 


4014 










EXTRUB 




15U5 


14 24 


1 457 






L2 


7305 


1444 


0417 


0471 


1413 


1461 


E4 


5661 


2017 


2012 








E6 


2371 


2427 


0123 


0146 


0213 


0216 






4305 


4307 


4313 


4316 


EB 


5434 


4322 


42 73 








F'CSA 


0020 


4012 


1425 


1500 


1517 


1554 


FCT8LK 


0350 


4004 


2653 








FF 


6100 


4052 


3544 








FILE 


0470 


37 77 










Fl RSWD 


6602 


0657 


0514 


0664 






FI XUP 


5312 


1436 


14 32 


1472 






FL 


6^00 


4054 


3545 








FLOSET 


6722 


1013 


0760 


0771 






FLDTAB 


6753 


1044 


1014 








FREE 


0270 


4000 










FROH 


0101 


3117 


3033 


3042 


3044 


305 7 


FUDGEC 


05 05 


25 72 


25 64 








FWOFR 


1344 


3317 


32 47 








FWDLN 


1350 


3323 


3253 








F2 


7122 


1245 


1260 








F3 


4461 


0540 


0364 


0412 


2076 


2077 


F4 


4255 


0320 


0316 


2035 


2104 


3324 


F5 


6625 


0703 


1002 








F8 


5473 


4361 


44 45 


4 67 7 






GAPARG 


6100 


0112 


0673 


1067 


1105 




GCLOC 


7661 


2171 


2137 








GCORE 


7703 


2221 


2152 


2160 


2161 




GCTWO 


7702 


22 20 


21 72 


2 177 


4651 




GETCHR 


0455 


2540 


2566 


3536 






GETCUR 


6452 


0525 


0665 








GETSA 


72 44 


1373 


1364 








GETTTY 


1556 


3531 


3163 


3235 


3265 


3275 


GOCNT 


1615 


3572 


3610 








GOOD 


1657 


3634 


3632 








GOODY 


762fe3 


2125 


0720 


0752 


0776 


1020 


GOSCP 


56 01 


1732 


1746 


1751 






GOTAB 


6724 


1015 


1036 


1040 






GTOUT 


7704 


2222 


iJ143 


2166 


2167 




G4 


5732 


2073 










G8 


5503 


43 72 










H8IT 


4000 


4017 


0344 


0556 


0622 


0132 








3212 


3241 


36 02 


4144 


HERE 


0513 


2600 


0124 


2576 


2601 




H4 


4267 


0333 


0325 


0353 


2120 




Hb 


6635 


0717 










H8 


5512 


4401 


4371 








ILEGAL 


7516 


1772 


1707 








IN8UF 


4053 


00/5 


0061 


0065 






INDEX 


03 4 6 


4 003 


45 02 








INITLF 


4771 


107 7 


0106 


2141 






INPT 


0517 


2620 


2/21 


2774 






INPTRS 


0770 


2715 


0064 









SYMBOL 



VALUE DEF 



REFERENCES 



T M Q r O T 
i J t n J 


5 202 


1 32 6 


1214 


130 7 








1 m1 A 


1 055 


1 Q T Q 2 


1 H < 7 






10 56 


1 W A I T 




0626 


05 20 




JB AP 1 


CIS '< < 


5/^17 








05 37 


5 A 4<a 

C O *t*f 


04 60 




JB AS 1 


0^23 


26 25 


02 4 7 




JB A S 2 


052 7 


2 6 32 


02 4 4 




J8FC 2 


05 43 


2651 


1 1^ S Dl 


2116 


wo LU 


0547 


2656 


04 76 




JB ME T 


1 6 72 


3650 


3644 






60 60 


00 72 


0102 




jB H4 7 






c >c 




J tS U L u 


77 76 


2412 


2 4 05 




O" A U A 


0553 


2667 






J8 SB 


054 3 


7 A A ^ 
C 0 o o 


1 •* c W 




J USP 


05 4 3 


2 66 !3 


1472 


1512 


J8 TM T 


77 62 


23 73 


00 70 


2 43 4 


IQ T M TQ 

ijD 1 n 1 o 


7 7 71 


2 4 02 


23/4 




JGC 


66 10 


06 65 






jp j_ 


57 70 


47 11 


46 23 




j4 


43 00 


03 45 


03 41 






66 54 


07 41 


M 7 ■< 1 


0 74 5 


JO 






43 64 


4467 


K B D I 


40 76 


0125 


10 1 1 ^ 




L/D nn PO 
f\ d u u r n 


74 00 




2 4 71 




w tj n n ! ! T 
nb UUU 1 




01 2 6 


01 1 6 




fS o Ui LIN 


55 66 


1714 








56 3b> 


1 7 7 .P 


20 43 


2 04 6 


KC R 


/! i 


1 7 bl 


1 7 i 1 

I'll 




K C T R 


41 00 


012 7 


0117 




wn riM r* 
tsU Un L 


16 61 


36 36 


04 21 




KGET 


15 62 


35 36 


35 33 




KG 0 


55 63 


17 11 


17 21 




K HERE 


4 0 75 


01 24 


0113 


0115 


KLEG AL 


74 33 


17 06 


16 76 




koh 


0057 


4044 


1255 




KO Mi 


57 00 


40 43 






KPTAOR 


1166 


3140 


3062 


3124 


KPT12 


1173 


3145 


3143 




KSAM7 


7067 


1204 


1662 




KTAD 


1171 


3143 


3021 




KT4 


4213 


0250 


0253 


0266 


Kl 


4152 


0203 


0174 


0213 


K2TAD 


11 72 


3144 


3026 




Kb 


70 57 


1174 


m76 


0 724 


Kb 


5/02 


4615 


4327 


4453 


KB8 


5722 


4637 


4347 


4353 


lastcr 


5502 


1626 


1522 




LCOOE 


1400 


4072 


1353 




LEGAL 


74 43 


1717 


17 06 




LF 


0037 


4023 


0054 


1011 


LFCHK 


1362 


3335 


3303 




LFCOOE 


75 45 


20 40 


2005 




LFQRRO 


1254 


3227 


3173 




LFl 


3700 


4022 


0762 


1233 


LI ORCV 


6240 


0265 


0173 




LNCTR 


5767 


4704 


4657 


4672 


LNFEEO 


75 06 


1762 


1713 




LMFOR 


6620 


06/5 


05 05 




LNHC 


1013 


4045 


0720 




LNSPER 


5547 


16/5 


0313 


1667 



SYMBOL VALUE DEF REFE^L'vlCES 



L-a 


b76b 


4 7;'12 


4314 4340 4357 


4400 


4 44 2 


4674 








LN2 


5766 


4703 


4320 4342 4444 














LOCATE 


6^11 


034J 


0312 














LOKATE 


4214 


0251 


0353 














LOOP 


1724 


37 11 


3/21 














LOTBLK 


I33t>4 


4006 


26 60 














L6 


4!? 12 


05 74 


1/70 2047 2121 


4 45 2 














5711 


2052 


0272 0307 2072 














L8 




4546 


4271 














MAGTP 


5600 


4501 


4343 4554 4555 


4564 


4574 










MA K GAP 


5221 


1345 


1362 














MAX8LK 


4454 


0531 


0407 0 745 4135 










1 l** *t 


11^7 


MAXLN 


44 51 


0526 


14 35 0152 0170 


0171 


03 00 


0304 


11 *»o 


MAXNUM 


0172 


40 70 


1163 1622 34 70 


3 62 5 


4150 


4200 








MA XVC 


66 2>5 


0700 


1124 167 2 














MBLKi? 


20iii2 


47 06 


42/6 40Jo s^Oo 


4 502 












MChC 


1051 


4050 


1007 














MCVC 


7420 


4046 


1004 














MHBIT 


5251 


1375 


1244 














MI NUSl 


4156 


0207 


0314 0571 0660 


1/55 












HKHC 


17 6i 


4047 


1151 














M00K80 


04 00 


2453 


0632 














MOVEIT 


a 21 


3065 


3022 3027 3103 


312 6 


41 11 










M24 


0503 


2570 


2463 














HA 


4234 


0274 


0254 0306 2066 














M5 


6762 


1063 
















M8 


6270 


0320 


0311 














NEGl 


56 66 


20 24 


2015 














NOAOJ 


53 76 


15 22 
















NOCNT 


5521 


1645 


1634 1642 














NOLN 


5447 


4335 


4311 














NOPAS 


6562 


06 35 


0641 














NOTACR 


5377 


1523 


1443 






^1^ / 


44 47 






NOTOK 


4176 


0231 


0173 0434 0501 


2132 


2135 






NUMCHK 


6321 


0355 


0310 0401 1401 














Nl 


6304 


0335 


















7142 


12 6/ 
















OK 


5367 


1513 


1422 1426 1427 


1440 


14 42 


145 2 


A A etc; 
14 55 


14/1 


OLOPTR 


1033 


2770 


00 60 














OLDSAM 


6627 


07 06 


1665 














OUTCUR 


6544 


0617 


0540 0577 














OUTPTR 


1010 


2741 


1062 














OUTSCP 


6573 


0650 


0630 0653 0662 


0713 


1116 










PASTL 


4027 


0046 


0037 














PCODE 


200^ 


40 71 


1350 














FLACTR 


41 71 


0223 


0211 0632 1544 


4134 












PLAFLG 


4351 


041/ 


0110 0366 0411 


0731 


4266 


4410 


4616 






PLAFUL 


4310 


0356 


0145 














pnSCHK 


1375 


3350 


3367 














POSl 


60 72 


0104 


42 56 














PTADOR 


2400 


4061 


3140 4062 4107 














PT5LK 


0320 


4074 


2703 














PTEX IT 


2520 


4063 


2/45 3007 4064 


4171 












PTINIT 


2450 


4062 


2734 4063 4143 














PTRIN 


0506 


2573 


0125 2474 2477 














PTROUT 


0507 


2574 


0126 2542 2545 














PTliJB 


2570 


4064 


3145 4065 4221 














PXTBLK 


0361 


4011 


26 71 










4512 




PI 


4167 


0221 


0^51 0321 0365 


1142 


1157 


1762 


2056 






6035 


0044 


0037 














PliJiija 


5072 


1215 


0226 














P2T 


76 06 


2111 


2101 















VALUE OlF 



P4 


4 2t)»? 


0 31 2 


5320 








4542 


0625 


06 62 


0665 






117? 


31'^ 2 


3123 






o ^ 


66 73 


0764 


07 74 


1032 


IZ 43 


P56 


63 55 


0371 


0347 


0410 


12 45 


F6 


6314 


0346 








QH ARKl 


11 ZZ 


4073 


1307 








b6 2'Z 


I7t)3 


3322 






wc 


00 £'4 


405 7 


3546 






RDCASM 


6166 


0207 


1617 






REaO 


24? 2 1 


2445 


0«^43 

4622 


0246 


0443 




71t:.i 


llZ'c 


1317 






^E GCHR 




1207 


1262 


3205 


32 23 


RESET 


tj46k' 


160 4 


1441 


1614 




RESTRT 




2141 


4166 


4216 




RE TE X 


405t? 


005 / 








PJMP 


4767 


10/1 


1065 








1401^ 


4056 


3546 






RO 


00 i 7 


40 35 








RO ACHR 




I47t> 


1236 


1425 


14 30 


rolep* 


t>5 22 


14 46 


3350 






ROR I T 


t?2 7 2 


1416 


3326 






ROl 


,57 iJcl 


4034 


3543 






RR 


0022 


405t> 


3545 






rtn 




20 07 


20 02 






RTNEOF 


712 40 


1146 


1131 






RTNJMP 


7523 


1777 


1644 






RT NMOD 


0450 


2506 


2457 


2503 




RT NR TN 


10 iJ5 


27 35 


3030 


3 05 2 


3744 


RT NS ET 




16 25 


15 75 






RUB 


!:>1 12 


1236 


1247 


3232 


3340 


RUBC 


1>556 


3331 


3261 






RU8L 


135>4 


3327 


3257 






~ U D U U 1 


74 7 7 


17 53 


1/12 






R U 5R 


13^2 


33 25 


32 55 






R<5 


4 323 


0371 


04 01 






SA MA RG 




1663 


0712 






SAM3 


60 20 


00 27 


0533 


4222 


4225 


SAM7 


6026 


0035 


0703 


1207 




SA VAC 


01 00 


51 16 


3041 


3046 


31 06 


SA YNO 


^>6 65 


4600 


4303 


4570 


4614 


SBT8LK 


0356 


4007 








SCOPE 


64^3 


05 04 


1737 






SCPRTN 


60 73 


010:5 


0047 






SCPSTR 


6623 


0660 


0517 


0635 


1153 


SETS 


5 ?14 


4 631 


4t>50 






SETUPl 


0322 


3765 


0042 






SETUP2 


03 2 3 


3766 


0044 






T6N3 


5447 


1573 


1320 


1323 


1547 


SH lET 


111?- 7 


30 53 


2 7 33 


2744 


3006 


SHUriE 


15 44 


3517 


3507 


3 52 2 




SKPCHK 


1141 


3l0t> 


3056 


3066 


3074 


SKPL IT 


1152 


3122 


3054 


310 7 




SP 


00 4 


40 3 7 








SPCH AR 


1563 


3540 


3167 


3241 


3271 


SPf'CNS 


14 0^5 


401 ^ 








SPTBLK 


4533 


0616 


1464 


4126 




SPYTAB 


74 14 


1665 


1672 






SPi 


4000 


4036 


0377 


1276 




SRTA8 


1436 


3411 


3424 






STBUr 


0511 


25 76 


2531 







bY Mb UL 


VA LUE 


DEF 


REFERENCES 






S T L I NC 


7 A 

/ c 0 o 


1 36 5 


1354 










STROP 


7 227 


1356 


1351 












1 >52 0 


32 73 


1202 


3151 


3160 






bU d5 £T 


b 0 b 5 


12 00 


3274 










SV ACC 


6601 


065 6 


0645 


0654 








SV CHR 


0t> 10 


25 7 5 


25 43 


2551 


2565 






S 6 


4 33 4 


0402 


0374 










b4 


56 75 


20 34 


0270 










Tab 


7 4 71 


174 5 


1710 










TA BC NT 


14 56 


34 31 


3414 


3417 








TA BEND 


144 5 


3420 


3434 










T A CI r 
1 A oL L 


75 43 


C\0OO 


1664 










T A Qc r T 

1 A Us L 1 


012 k) 


1 171 '^l 
1 kJ -JX 


1053 


1054 


1055 


1 CtSA 
J. 




T A rr o 


1 'J 7 7 


10 53 


1044 


105 4 








TK 


00 4 7 


40 25 


0136 


3456 










47 33 


10 33 


1011 


4137 








ID 1 u no 


41 01 


01 31 


12 04 


1251 


12 63 






TP 1 


4700 


40 24 


0757 


0770 


3413 


354 0 






6 541 


0 614 


0535 


0537 


0575 


0 60 6 


<u oil 


TC MP 1 


4022 


00 40 


1203 


1207 


1216 


1306 


1311 
X 1 X 




•IW £ O 


00 41 


1344 


1355 


1361 


1 "^A? 
A oo / 


1 406 




401'? 4 




1354 


1360 








T r MP 4 


1413 


3366 


3355 


3361 








TE MP 5 


04 54 


2537 


2524 


2525 


2532 


2 534 




TEST M 


170 5 


3671 


3015 


3672 


3727 






1 h t n c 




£ 0 101 


2577 


2604 








Tft 


01 03 




3036 


3043 


3045 


0 10 O 1 


70 a7 


T n n D T D 

1 U r r 1 " 


4 02 5 


004 3 


0663 


0664 


1510 


1610 


1 /04 


T 0 R F 


0102 


3120 


3063 


3065 


3100 


"ti oil 


OX •! X 


TP CH K 


42 02 




02 67 


1764 


2112 






TP FL G 




02 3 6 


0233 


0324 


0330 


0 60 5 


20 42 


TO CT A T 




06 05 


0502 


2040 


4141 










45 02 


42 77 


4 33 4 


44 62 


4 51 3 




T Q V D NC 


04 22 




2461 










TX T H C 


1157 




0751 


0776 


1053 


1115 




T Y CA R 


/ -> C *f 


d M 01 


1751 










TYPE 






1732 


1740 


1747 


1 7 (%R 


20 0 4 


TO 


57 4 4 


21 06 


02 74 


0277 


1452 






T Tt 

1 o 
















TA 


63 54 


04 12 


0374 


0402 


04 06 






UN IT NO 


0777 


37 72 


0156 


0204 


0224 


0237 




\JP6 


5100 


1223 












UP6 


5102 


1226 


12 22 


1264 








U2 


7174 


1322 


0436 


1313 


2107 






VCOORD 


6765 


1066 


0073 


0701 


1005 


1111 




VIRGST 


1153 


3123 


4173 










V3 


4545 


0630 


0544 


0552 








WA 


0370 


3773 


0266 


2201 


2215 


1072 


2074 


MAEND 


0467 


3776 


1153 


3777 


4426 






WATAG 


7701 


2215 


2165 


2202 


4654 






WAUNIT 


0000 


3775 


0414 


0612 


0721 


0736 


0777 


WB 


3000 


4016 


0436 


0462 


0631 


0640 


2101 


WBFULL 


43 72 


0444 


0143 


0347 








W8RDC 


4650 


0737 


0415 


0652 








WBT8LK 


4664 


0754 


0547 


0770 


4124 






WHTOCB 


56 50 


20 06 


20 22 










WBWRC 


4635 


0724 


0403 


0432 


0613 






WGA12A 


1742 


37 36 


3717 










WP 


4747 


1047 


1043 










WRITE 


00 22 


2446 


2257 


2262 


2265 


2 27 0 


1052 


WRLl 


0557 


2674 


2762 










WRL2 


05 63 


2701 


1056 


2724 


2757 


2 77 7 


3131 



4133 4155 4167 4205 4217 



SYMBOL 


VALUE 


OEF 


REFERENCES 




WT 


464 7 


0736 










w'i 


4t>27 


0612 










W2 


6242 


0267 


0174 


1502 








6774 


1075 


1201 


1025 






XI TCMA 


1554 


3527 


3454 


3457 


3463 


3466 


XI TCOM 


1462 


34 35 


33 76 








XITCR 


1^60 


33 33 


33 07 








XI TCUR 


6543 


0616 


0543 


0551 


0554 


0561 


XITERR 


7046 


1154 


03 33 


0416 


0430 


1302 


XI TREG 


1247 


3222 


3171 


3225 


3230 


3314 


XI TRO 


54 41 


1565 


14 77 


1556 


1562 


1571 


XI Tl 


64 47 


0522 


20 76 








X I T2 


4761 


1063 










XI T2C1 


1245 


3220 


3165 


3177 


3203 


3243 


X2 


4735 


1035 


1447 


023 2 


2114 


212 2 


Y& 


6712 


1003 


0062 


0763 






Y6 


224 0 


2414 


0330 








HERO 


7706 


2241 


2404 








jfH7000 


77 6 2 


24 34 


2246 








HPl 


77 4 0 


2301 


2260 








^P2 


77 44 


2311 


2263 








2P3 


7752 


2321 


2266 








EP4 


7756 


2330 


2271 








£2 


7574 


2077 


15)21 


2066 






26 


2201 


2355 


0326 


0330 







0567 
1305 



1310 1320 
3346 3372 



1333 
3530 



1336 1345 1355 1402 1456 1460 l542 2 104 



3336 3512 3633 



